Напишите на ^ Паскале программу, которая запрашивает с клавиатуры массив из N чисел, а затем выводит среднее арифметическое всех элементов массива.
Напишите на ^ Паскале программу, которая запрашивает с клавиатуры массив из N чисел, а затем выводит среднее арифметическое всех элементов массива.
Гость
Ответ(ы) на вопрос:
Гостьорфографию проверь var N,i,z,l:integer; a:array[1..100] of integer; for i:=1 to N do begin readln(a[i]); l:=l+a[i]; end; z:=l/N; writeln(z); end.
Гость Program Sred;
var n, i, sum : integer; mas: array[1..20] of integer;
af: real;
begin sum := 0; n := 20;
writeln('введите элементы массива'); for i:=1 to n do
begin
readln(mas[i]);
sum := sum + mas[i];
end;
af := sum/n;
writeln (af);
end.
Не нашли ответ?
Похожие вопросы