Дан массив из n чисел. найти номер первого чётного элемента массива; если чётных элементов нет, то ответом должно быть число 0. написать программу в паскаль.

Program zadanie; const lmax=10; var n,i: integer; a: array [1..lmax] of integer; n1: real; flag: boolean; begin repeat           writeln('введите длину массива меньше ',lmax);           read(n1); until (n1> 0) and (n1< =lmax) and (n1=round(n1)); n: =round(n1); writeln('введите целые элементы массива'); for i: =1 to n do       begin       repeat                   read(n1);                   if (n1< > round(n1)) then writeln('введите целый элемент');       until (n1=round(n1));       a[i]: =round(n1);       end; flag: =false; i: =0;         repeat         i: =i+1;         if (a[i]mod 2=0) then               begin               flag: =true;               writeln('номер первого четного элемента - ',i);               end;         until flag or (i=n); if (flag=false) then writeln('0') end.

program vvod;

var a: array [1..N] of integer; N: integer i:integer;

begin

write('Введите количество элементов в массиве');

readln(N);

for i := 1 to N do readln(a[i]);

for i := 1 to N do writeln(a[i],' ');

end.

Примечание обратить внимание, что данный фрагмент программы на языке Pascal не будет работать, ибо данная среда программирования не поддерживает создание динамических массивов, что пытаются сделать в данной программе сообщите об этом вашему преподавателю.