Программа, которая формирует массив из 7 случайных чисел из промежутка [5;10] и вычисляет их сумму
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.
<em>1)</em> Program p1;
Uses crt;
Var A: array [1..9] of integer;
i: integer;
Begin clrscr;
for i:=1 to 9 do
begin
case i of
1,4,7: a[i]:= random (99-10+1)+10;
2,5,8: (random (999-100+1)+100) div i;
3,6,9: (random (99-10+1)+10) mod 10;
end;
write (a[i],' ');
end;
readln;
readkey;
end.<em>
</em>2)<em> </em>Program p2;
Uses crt;
Var A: array [1..15] of integer;
i: integer;
Begin clrscr;
Writeln ('Введите первые 2 элемента массива');
Read (a[1],a[2]);
for i:=3 to 15 do
begin
a[i]:=(a[i-1]-a[i-2])+i;
write (a[i],' ');
end;
readln;
readkey;
end.
Var q1,q2,q3,n:integer;beginwrite('Введите трехзначное число n ');read(n);q3:= n mod 10;q2:= n div 10;q2:= q2 mod 10;q1:= n div 100;writeln(q1:4,q2:4,q3:4);if q2 = q1*q3 thenwrite('Цифра, расположенная в середине числа, равна произведению двух крайних цифр')elsewrite('Цифра, расположенная в середине числа, не равна произведению двух крайних цифр');<span>end.</span>