Предмет: Информатика,
автор: putin11168
Запиши программу на языке программирования Pascal
Дано 7 целых чисел Напиши программу нахождения наибольшего ненулевого среди них.
Спамеров баню сразу!
СРОЧНО! даю 90 баллов
Ответы
Автор ответа:
1
Ответ:
program Chernovik;
var a,m,i: integer;
begin
m:=0;
for i:=1 to 7 do
begin
read(a);
if (m=0) and (a<>0) then m:=a;
if (a>m) and (a<>0) then m:=a
end;
if m<>0 then write(m)
else write ('Не было не 0 чисел')
end.
Объяснение:
Последнее условие если все 7 чисел равны 0.
Похожие вопросы
Предмет: Геометрия,
автор: evgexa15
Предмет: Математика,
автор: TROLOLOUFA
Предмет: Физика,
автор: kokolnastia
Предмет: Математика,
автор: irina652
Предмет: Биология,
автор: лиана3451