SHARE
TWEET

Untitled

a guest Oct 21st, 2019 71 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.                 for i := 0 to size - 1 do
  35.                 begin
  36.                     readln(mass[i]);
  37.                     if (mass[i] > minEl) and (mass[i] < maxEl) then
  38.                         isCorrect := true
  39.                     else
  40.                         Writeln('Ошибка ввода. Повторите попытку.');
  41.             except
  42.                 Writeln('Ошибка ввода. Повторите попытку.');
  43.         end;
  44.         until isCorrect;
  45.     end;
  46.     sum := 0;
  47.     for i := 0 to size - 1 do
  48.         sum := sum + mass[i];
  49.     average := sum / size;
  50.     for i :=0 to size - 1 do
  51.     begin
  52.         if abs(mass[i] - average) < close then
  53.         begin
  54.             close := abs(mass[i] - average);
  55.             closeind := i;
  56.         end;
  57.     end;
  58.     Writeln('Индекс элемента: ', closeind);
  59.     Readln;
  60.     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