Найти сумму,минимальное,максимальное и среднее арифметическое элементов одномерного массива - Turbo Pascal
Формулировка задачи:
Решение задачи: «Найти сумму,минимальное,максимальное и среднее арифметическое элементов одномерного массива»
Program Min_Max;
uses crt;
var a:array[1..10] of integer;
min,max,s,sn:real;
i:integer;
begin
Textcolor (12);
For i:=1 to 10 do
Begin
A[i]:=random(20)-10;
Write(A[i]:4);
s:=s+A[i];
if a[i]>max then
max:=a[i];
if a[i]<min then
min:=a[i];
end;
sn:=(s/10);
Textcolor(10);
writeln;
writeln('Максимально число: ',max);
writeln('Минимальное число : ',min);s:=s+A[i];
writeln('Средне арифмитическое равно ', sn);
readln
end.
Объяснение кода листинга программы
В данном коде используется язык программирования Turbo Pascal. Он предназначен для решения задач, связанных с обработкой данных. В начале программы объявляются необходимые переменные: массив A, минимальное и максимальное значения s и sn типа real, а также переменная i типа integer. Затем следует цикл for, который выполняется 10 раз. В каждой итерации цикла значение элемента массива A[i] присваивается переменной A[i], выводится на экран с помощью функции Write, а затем суммируется с переменной s. Далее проверяется условие: если текущее значение A[i] больше максимального значения min, то max заменяется на текущее значение A[i]. Если текущее значение A[i] меньше минимального значения min, то min заменяется на текущее значение A[i]. После выполнения цикла вычисляется среднее арифметическое значение s путем деления суммы s на 10 и выводится на экран. Конечная строка программы позволяет пользователю увидеть значения максимального, минимального и среднего арифметического значений. Таким образом, данный код решает задачу нахождения суммы, минимального, максимального и среднего арифметического элементов одномерного массива.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д