Регистрация
nabiullinnazim
25.03.2020 11:21
Информатика
Есть ответ 👍

В масиві Q[0..5,0..3] від'ємні елементи замінити нулями. Вивести на екран початковий та змінений масив

140
287
Посмотреть ответы 1

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

domka123456789
domka123456789
4,5(31 оценок)
Var n,sum,pr: real; i: integer; begin   write('введите 5чисел');   for i: =1 to 5 do begin                 readln(n);                 sum: =sum+n;       end; pr: =sum/5; writeln('среднее арифметическое чисел -  ',pr); end.

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