Задание:
Написать программу паскаль! Дан массив из 20 целых чисел, определить среднее арифметическое этогомассива
Решение:
Var a: array [1… 20] of integer; i,s: integer; BeginFor i: =1 to 20 do begin read (a[i]); s: =s+a[i]; end; Writeln (s/20); readln; end.
Знаете другой ответ?