Составте программу, которая формирует массив из 40 случайных целых…

Question

Составте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет среднее арифметическое всех егоэлементов.

Answer 1

71

natalya-gribova

18 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: