Предмет: Информатика,
автор: RoolsenGun
Найти сумму элементов массива состоящего из n чисел и найти их среднее арифметическое на языке паскаль
Ответы
Автор ответа:
1
- program task31152710;
- const
- N = 10;
- var
- arr: array[1..N] of integer;
- S: real;
- begin
- for var i := 1 to N do
- begin
- Readln(arr[i]);
- S := S + arr[i]
- end;
- Writeln('СУММА ЭЛЕМЕНТОВ = ', S);
- Writeln('СРЕДНЕЕ АРИФМ. = ', S / N);
- end.
Интересные вопросы
Предмет: Математика,
автор: husen190707
Предмет: Литература,
автор: brtataratata9283
Предмет: История,
автор: sasafilatova263
Предмет: Литература,
автор: Кемпер11
Предмет: Математика,
автор: arinpony