Регистрация
Wishnewski
25.09.2020 18:04
Информатика
Есть ответ 👍

С клавиатуры вводятся числа, конец ввода число 0. Найти наибольшее число из них и посчитать, сколько чисел ввели, число 0 не учитывать.

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

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

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

var sum,k,a: integer;

begin

a:=1; sum:=0; k:=0;

writeln('Вводите числа');

while a<>0 do begin

readln(a);

if (a<0)and(a mod 10=-5) then begin k:=k+1; sum:=sum+a; end;

end;

if k=0 then writeln('Таких чисел нет') else writeln('Среднее арифметическое равно ', sum

Объяснение:

nata714
nata714
4,4(42 оценок)

векторная с coraldraw растровая - фотошоп, паинт

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