Вопрос школьника по предмету Информатика
С клавиатуры вводятся числа, конец ввода число 0. Найти наибольшее число из них и посчитать, сколько чисел ввели, число 0 не учитывать.
Ответ учителя по предмету Информатика
Ответ:
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
Объяснение:
Похожие вопросы от пользователей
1) Ллина реки Лены 4420 км, что на 730 км больше длины Волги. Какова длина реки волги?
2) Из 15т картофеля получают 2375кг крахмала. Сколько крахмала можно получить из: а) 3т; б) 30т; в) 6т; г) 18т картофеля?