Регистрация
katerinam2001
28.07.2020 23:18
Информатика
Есть ответ 👍

Таблица a[1,25] найти сумму положительных элементов таблицы, произведение отрицательных, среднее арифметическое всех элементов

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

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

vadimfarxudinov
vadimfarxudinov
4,7(98 оценок)

program sum; uses crt; var i: integer;       sum, p, sr  : real;         a : array [1..25] of real; beginclrscr; for i: =1 to 25 do      begin                write ('a[',i,']=');                 readln(a[i]);       end; sum: =0; for i: =1 to 25 do begin

if a[i]> 0 then      sum: =sum+a[i];

end;

sr: =sum/25;

for i: =1 to 25 do begin

if a[i]< 0 then      p: =p*a[i];

end; writeln ('sum=',sum: 5: 2);

writeln ('p=',p: 5: 2);

writeln ('sr=',sr: 5: 2); readln; end.

nataliarianna29
nataliarianna29
4,4(18 оценок)

input() это функция которая позволяет пользователю вводить текст

Объяснение:

Популярно: Информатика