Реферат: Лабораторная работа № 16

then

if k1>ko

then ko:=k1;

if not ok

then

if k1=ko

then writeln(sl[j]);

k1:=0;

end;

end; {s4et}

var

s:mas;

i,n,k:integer;

begin

k:=0;

Writeln('Введите кол-во строк:');

readln(n);

Writeln('Введите текст:');

for i:=1 to n do

begin

readln(s[i]);

s4et(true,s[i],k);

end;

writeln('максимальное количество гласных букв в слове=',k);

for i:=1 to n do

s4et(false,s[i],k);

end.

Результат выполнения программы:

Введите кол-во строк: