//PascalABC.Net 3.2 begin var a:=readArrInteger ('Вводите: ', readinteger('n =')); var max:=a[0]; var count:=0; for var i:=0 to length(a)-1 do begin if a[i]>max then max:=a[i]; if a[i] mod 3<>0 then inc(count); end;
Через поле и лесок Подается голосок. Он бежит по проводам - Скажешь здесь, А слышно там.-Телефон Под крышей — четыре ножки, А на крыше — суп да ложки.-Cтол Важных данных я хранитель, Информации носитель, Гибкая,так что же это? Я магнитная ?-Дискета.
Я блокнот и память я, Есть и электронная. Записи я все веду, Всё фиксирую и жду. книжка
Не пищу и не шуршу, А с компьютером-дружу. Я курсором управляю, И командам мышка
Осенью,я всех встречаю. Летом,просто отдыхаю. Весь учебный год-учу, Дарить знания хочу. школа P.S Если тебе понравилса ответ будь добр поставь лучший ответ.
begin
var a:=readArrInteger ('Вводите: ', readinteger('n ='));
var max:=a[0]; var count:=0;
for var i:=0 to length(a)-1 do
begin
if a[i]>max then max:=a[i];
if a[i] mod 3<>0 then inc(count);
end;
writeln ('1: ', max);
write ('2: ', count)
end.