Задание:
Дан массив из 5 элементов. Найти средне арифметическое всех элементов массива.
Решение:
Program ArrayAverage; var a: Array [1… 5] of Integer; i: Integer; b: Real; Beginb: =0; WriteLn ('Введите 5 целых чисел через пробел и нажмите Enter'); For i: =0 To 4 DoBeginRead (a[i]); End; For i: =0 To 4 DoBeginb: =b+a[i]; End; b: =b / 5; Write ('Среднее арифметичиское: '); WriteLn (b: 10:2); End.
Знаете другой ответ?