Для какого названия города истинно высказывание: (первая буква гласная^последняя буква гласная)~название содержит букву "м")? 1)москва 2)дюссельдорф 3) 4)атланта

#3 первая гласная последняя гласная и содержит букву м

Program a22; const       max = 42; var       vt: array[1..max]of byte;       i,n: byte;       x: integer; begin   n : = max;   writeln('массив из n элементов будет задан случайными числами на интервале [0,3].');   readln(n);     write('введите число которое будет добавлено к каждому элементу.');   readln(x);     writeln('начальный массив' );   randomize;   for i: =1 to n do begin       vt[i]: =random(1,3);       write(vt[i], ' ');   end;   writeln(' ');     writeln('массив c результатом' );   for i: =1 to n do begin       write(vt[i]+x, ' ');   end;   writeln(' ');   end.

Program pascal1; uses crt; const   m=4;   n=2; var   a: array[1..m,1..n] of real;   i,j,k: integer; begin   clrscr;   randomize;   writeln('сформированный масcив');   k: =0;   for i: =1 to m do begin       for j: =1 to n do begin           a[i,j]: =random(31)-15.0;           write(a[i,j]: 6: 1);           if a[i,j]=10 then inc(k)           end;       writeln   end;   writeln('количество элементов, равных 10: ',k);   write('нулевые элементы: ');   for i: =1 to m do       for j: =1 to n do           if a[i,j]=0 then write('a[',i,',',j,'] ');   writeln end. вариант выполнения: