Запиши программу на языке программирования Pascal Дано 7 целых чисел Напиши программу нахождения наибольшего ненулевого среди них.

Спамеров баню сразу!

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.