Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project1;
- const
- minSize = 2;
- maxSize = 100;
- minEl = -100;
- maxEl = 100;
- var
- i, size, closeind, sum: integer;
- close, average: real;
- isCorrect: boolean;
- mass: array of integer;
- begin
- Writeln('Данная программа находит индекс элемента в последовательности, который отличается от среднего арифметического значения элементов последовательности на минимальную величину.');
- repeat
- Writeln('Введите размер последовательности от ', minSize, ' до ', maxSize,':');
- try
- Readln(size);
- if (size > minSize) and (size < maxsize) then
- isCorrect := true
- else
- Writeln('Ошибка ввода. Повторите попытку.');
- except
- Writeln('Ошибка ввода. Повторите попытку.');
- end;
- until isCorrect;
- SetLength(mass, size);
- for i := 0 to size - 1 do
- begin
- repeat
- Writeln('Введите целые числа от ', minEl ,' до ', maxEl,' через пробел и нажмите <Enter>: ');
- try
- readln(mass[i]);
- if (mass[i] > minEl) and (mass[i] < maxEl) then
- isCorrect := true
- else
- Writeln('Ошибка ввода. Повторите попытку.');
- except
- Writeln('Ошибка ввода. Повторите попытку.');
- end;
- until isCorrect;
- end;
- sum := 0;
- for i := 0 to size - 1 do
- sum := sum + mass[i];
- average := sum / size;
- for i :=0 to size - 1 do
- begin
- if abs(mass[i] - average) < close then
- begin
- close := abs(mass[i] - average);
- closeind := i;
- end;
- end;
- Writeln('Индекс элемента: ', closeind);
- Readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement