fork download
copy 
  1. program SumCalculation;
  2.  
  3. uses
  4.   SysUtils;
  5.  
  6. var
  7.   i, n: Integer;
  8.   sum: Real;
  9.   X: array of Real;
  10.   minX, maxX: Real;
  11.  
  12. begin
  13.   // Ввод количества элементов
  14.   Write('Введите количество элементов (n): ');
  15.   ReadLn(n);
  16.  
  17.   // Проверка корректности ввода
  18.   if n <= 0 then
  19.   begin
  20.     WriteLn('Ошибка: n должно быть больше 0.');
  21.     Exit;
  22.   end;
  23.  
  24.   // Создание массива для X
  25.   SetLength(X, n);
  26.  
  27.   // Ввод значений X[i]
  28.   WriteLn('Введите ', n, ' элементов массива X:');
  29.   for i := 1 to n do
  30.   begin
  31.     Write('X[', i, '] = ');
  32.     ReadLn(X[i - 1]);
  33.   end;
  34.  
  35.   // Инициализация минимального и максимального значений
  36.   minX := X[0];
  37.   maxX := X[0];
  38.  
  39.   // Вычисление суммы, поиск min и max
  40.   sum := 0.0;
  41.   for i := 1 to n do
  42.   begin
  43.     sum := sum + (X[i - 1] + i) / i;
  44.     if X[i - 1] < minX then
  45.       minX := X[i - 1];
  46.     if X[i - 1] > maxX then
  47.       maxX := X[i - 1];
  48.   end;
  49.  
  50.   // Вывод результатов
  51.   WriteLn('Сумма: ', sum:0:3);
  52.   WriteLn('Минимальное значение X: ', minX:0:3);
  53.   WriteLn('Максимальное значение X: ', maxX:0:3);
  54. end.
  55.  
Success #stdin #stdout 0s 5288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Введите количество элементов (n): Ошибка: n должно быть больше 0.
https://ideone.com/UqadsO
language:
Pascal (fpc 3.0.4)
created:
3 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!