Регистрация
Наоя
30.05.2023 14:23
Информатика
Есть ответ 👍

Высказывания на поиск информации в базе данных "коллекции" + логич. выражения

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

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

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.

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