Запиши программу на языке программирования Pascal
Дано 7 целых чисел Напиши программу нахождения наибольшего ненулевого среди них.
Спамеров баню сразу!
СРОЧНО! даю 90 баллов
Дано 7 целых чисел Напиши программу нахождения наибольшего ненулевого среди них.
Спамеров баню сразу!
СРОЧНО! даю 90 баллов
Answers & Comments
Ответ:
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.