Дано масив а от 1 до 10 визначити 1)суму та добуток додатніх елементов 2)визначити суму та добуток та кількість додатніх елементів

234

356

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

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

Galiavey370

Информатика

4,7(92 оценок)

Var a: array [1..10] of integer; var i: integer; var sum, mul, n, t: integer; begin writeln('введите 10 чисел: '); for i : = 1 to 10 do begin readln(a[i]); - end; sum : = 0; mul : = 0; n : = 0; for i : = 1 to 10 do begin t : = a[i]; if t > 0 then begin sum : = sum + t; if mul = 0 then begin mul = t; else begin mul : = mul * t; end; n : = n + 1; end; end; writeln('сумма: ', sum); writeln('произведение: ', mul); writeln('количество: ', n); end.