Pre обозначает предварительно отформатированный текст
использовать Робот
алг
нач
вправо;закрасить;вправо;закрасить;вправо;закрасить
вниз;закрасить;вниз;закрасить
влево;закрасить;влево;закрасить
вниз;вниз
закрасить;вправо;закрасить;вправо
закрасить;вверх;закрасить
кон
// PascalABC.Net
var arr: array [1..15] of integer;
count: integer;
begin
for var i:=1 to 15 do
arr[i]:=random(1, 300);
writeln('Исходный массив: ');
for var i:=1 to 15 do
write(arr[i], ' ');
writeln();
count:=0;
for var i:=1 to 15 do
if (arr[i] > 9) and (arr[i] < 100) then
count += 1;
writeln('Количество двузначных чисел: ', count);
end.
<span>11001 -----------------------------------</span>
Begin
var s:=readlnstring;
var gl:='АЕИОУЫЯЁЮЭ';
var m:=s.ToWords;
var k:=m.Length;
var b:=new integer[k];
for var i:=0 to k-1 do
b[i]:=m[i].Where(c->c.ToUpper in gl).Count;
Writeln(m[b.IndexMax])
end.