Задание:
Составте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет среднее арифметическое всех егоэлементов.
Решение:
Program n1; Uses CRT; Const n=40; Var A: array[1… n] of integer; i: integer; S: Real; beginwriteln ('Massiv: '); For i: =1 to n dobegin a[i]: =random (20); write (',A[i]: 2); end; writeln; For i: =1 to n do begin S: =s+A[i]/n; end; Writeln ('Srednee arif.: =',S); readln; end.
Знаете другой ответ?