Const n=20; var a: array[1..n] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to n do
begin
1)a[i]:=random(201);
write(a[i],' ');
if a[i] mod 10=0 then inc(k)
end;
writeln;
writeln(k)
end.
2)var i, kolvo: integer;
massiv: array [1..20] of integer;
begin
for i:=1 to 20 do
begin
massiv[i]:= random (201);
write (massiv[i]: 4);
if (massiv[i] < 100) and (massiv[i] > 9) then inc(kolvo);
end;
writeln;
writeln ('количество двузначных чисел = ', kolvo);
end.
3)var
A: array [1..20] of Integer;
i, c: Integer;
begin
Randomize;
Writeln ('Массив случайных чисел:');
for i := 1 to 20 do begin
A [i] := Random (90) + 10;
Write (IntToStr (A [i]) + ' ');
end;
for i := 2 to 20 do begin
if (A [i] + A [i - 1]) mod 3 = 0 then
Inc (c);
end;
Writeln;
Writeln ('Число пар соседних элементов, сумма которых делится на 3 = ' + IntToStr (c));
end.

lahtina195454    2   19.04.2021 11:22    0