SHARE
TWEET

Untitled

a guest Oct 21st, 2019 72 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Project1;
  2.  
  3. const
  4.     minSize = 2;
  5.     maxSize = 100;
  6.     minEl = -100;
  7.     maxEl = 100;
  8. var
  9.     i, size, closeind, sum: integer;
  10.     close, average: real;
  11.     isCorrect: boolean;
  12.     mass: array of integer;
  13.  
  14. begin
  15.     Writeln('Данная программа находит индекс элемента в последовательности, который отличается от среднего арифметического значения элементов последовательности на минимальную величину.');
  16.     repeat
  17.         Writeln('Введите размер последовательности от ', minSize, ' до ', maxSize,':');
  18.         try
  19.             Readln(size);
  20.             if (size > minSize) and (size < maxsize) then
  21.                 isCorrect := true
  22.             else
  23.                 Writeln('Ошибка ввода. Повторите попытку.');
  24.         except
  25.             Writeln('Ошибка ввода. Повторите попытку.');
  26.         end;
  27.     until isCorrect;
  28.     SetLength(mass, size);
  29.     for i := 0 to size - 1 do
  30.     begin
  31.         repeat
  32.             Writeln('Введите целые числа от ', minEl ,' до ', maxEl,' через пробел и нажмите <Enter>: ');
  33.             try
  34.                 readln(mass[i]);
  35.                 if (mass[i] > minEl) and (mass[i] < maxEl) then
  36.                     isCorrect := true
  37.                 else
  38.                     Writeln('Ошибка ввода. Повторите попытку.');
  39.             except
  40.                 Writeln('Ошибка ввода. Повторите попытку.');
  41.         end;
  42.         until isCorrect;
  43.     end;
  44.     sum := 0;
  45.     for i := 0 to size - 1 do
  46.         sum := sum + mass[i];
  47.     average := sum / size;
  48.     for i :=0 to size - 1 do
  49.     begin
  50.         if abs(mass[i] - average) < close then
  51.         begin
  52.             close := abs(mass[i] - average);
  53.             closeind := i;
  54.         end;
  55.     end;
  56.     Writeln('Индекс элемента: ', closeind);
  57.     Readln;
  58.     end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top