Дан массив а: array [1..30] of real. создать программу для нахождения среднего арифметического всех элементов массива. )

159

320

Посмотреть ответы 3

Ответы на вопрос:

kristinaлсп

Информатика

4,4(57 оценок)

массив вводим с клавиатуры или иного устройства ввода.создание программы для нахождения среднего арифметического + вывод среднего арифметического на экран.i - цикловая переменнаяsra - среднее арифметическое всех элементов массиваs - сумма всех элементов массиваvar а: array [1..30] of real; i: integer; sra,s: real; begins: =0; for i: =1 to 30 do beginreadln (a [ i ]); s: =s+a[i]; end; sra: =s/30; writeln (sra)end.

даша3901

Информатика

4,4(69 оценок)

uses crt; var a: array [1..30] of real; i: integer; sr,s: real; begin clrscr; randomize; s: =0; for i: =1 to 30 do begin a[i]: =random(100)-50; write(a[i],' '); s: =s+a[i]; end; sr: =s/30; write('sr=',sr); end.