Ввести с клавиатуры массив из 5 элементов,найти сумму и произведение элементов этого массива. пример: введите пять чисел : 4,15,3,10,14 среднее арифметическое: 9,200

126

257

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

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

олололо12

Информатика

4,8(85 оценок)

Program a; var sum,n,ymn,sred: real; i: integer; mas : array[1..5] of integer; begin sum: =0; ymn: =1; writeln('укажите пять чисел'); for i: =1 to 5 do begin read (mas[i]); sum: =mas[i]+sum; ymn: =mas[i]*ymn; sred: =sum/5; end; writeln('сумма элементов = ',sum,' произведение элементов = ',ymn,' среднее арифметическое = ',sred); end.

nurpaik

Информатика

4,8(53 оценок)

Const n=10; var i,b,max: integer; a: array [1..n] of integer; begin for i: =1 to n do begin a[i]: =random(1,50); end; writeln(a); max: =a[1]; for i: =1 to n do begin if max< a[i] then max: =a[i] end; writeln(a[1]); writeln(a); end.