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.
167
336
Ответы на вопрос:
Популярно: Математика
-
Understand1117.02.2020 00:59
-
monkey0623.07.2022 23:37
-
Udjfjwojzksnsnsnslkm04.12.2020 08:44
-
FJcjfjvj08.01.2020 08:36
-
mariagrigoryan328.06.2023 09:05
-
islamsalpagaro11.12.2021 09:23
-
Danothka18.01.2022 20:34
-
макарена220.06.2022 21:43
-
nikitasonar16.01.2020 09:17
-
bodiafan22.05.2020 13:36