Регистрация
lЕвгешкаl
01.08.2020 01:10
Информатика
Есть ответ 👍

Дан целочисленный массив из 30-ти элементов.написать программу,которая позволит найти среднее арифметическое положительных элементов массива .

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

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

Lerysik00
Lerysik00
4,4(61 оценок)
Паскаль: var mas : array[1..30] of longint; n,i : longint; r : real; begin   for i: =1 to 30 do read (mas[i]);   n: =30; r: =0;   for i: =1 to 30 do begin   if mas[i]< 1 then begin mas[i]: =0; n: =n-1;   r: =r+mas[i];   end;   writeln(r/n); end.
Allery
Allery
4,5(1 оценок)

опыт всему учитель!

сдвиг на 6 букв

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