Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоVK ComboВсе проекты

Помогите составить программу на Pascal ABC

паша шевченко Ученик (210), закрыт 4 недели назад
Массив из 20 целых чисел задается случайными числами. Определите максимальное четное число в нем. Допускается, что четных чисел в массиве может и не быть.
Лучший ответ
Кублен Оракул (94520) 2 месяца назад
остальное сам
program massiv;
uses crt;
var
i,n:integer;
b:array[1..100] of integer;
BEGIN
randomize;
clrscr;
writeln;
write('Vvesti N: ');
readln(n);
writeln('Vektor B: ');
for i:=1 to n do begin
b[i]:=random(101); write(b[i]:3);
end;
writeln;
end.
Остальные ответы
Похожие вопросы