ребяяяяят!!!!!

[ekkatterrrrinnaa]

1.ввести массив из 30 целых чисел.вывести на экран все четные числа и их номер в исходном массиве
2.в каждой строке матрицы V(10,10) найти максимальный элемент и его номер записать в результирующий массив

[Hacker19_90]

наработки есть?

[Mrsqler]

первая задача

const
N=30;
var
 a:array[1..N] of integer;
 i:integer;
begin
 for i:=1 to N do
   readln(a[i]);
  for i:=1 to N do
   if a[i] mod 2 =0 then
  begin
  writeln('a[',i,']=',a[i]);
  end;
end.