program Exam22;

{$APPTYPE CONSOLE}

uses
SysUtils;

type mas=array[1..20] of char;
var
d,c:mas;
i,j:integer;
FUNCTION Flag(a:mas;n:integer):boolean;
var k:integer;
begin
k:=0;
for i:=1 to n do
if a[i] in ['a','e','u','i','o'] then k:=k+1;
if k>10 then flag:=true
else flag:=false;
end;
begin

writeln('Vvedite massiv d:');
for i:=1 to 20 do
readln(d[i]);
for i:=1 to 20 do
write(d[i]:2);
writeln;
writeln('to, 4to elementov>10 -',flag(d,20));
writeln;
writeln('Vvedite massiv c:');
for i:=1 to 15 do
readln(c[i]);
for i:=1 to 15 do
write(c[i]:2);
writeln;
writeln('to, 4to elementov>10 -',flag(c,15));
writeln;
readln;



{ TODO -oUser -cConsole Main : Insert code here }
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.