Определите, какое число будет напечатано в результате работы следующей программы.
Program zadacha;
Var k, m: integer;
A:array[1..10] of integer;
Begin
A[1]:= 10; A[2]
A[3]:= 10; A[4]
A[5]:= 15; A[6é]
A[7]:= 97 A[8]:
A[9]:= 11; A[10]:= 9;
m:= 1;
for k := 1 to 10 do
if A[k] < 10 then
begin m:= mt+1;
end;
writeln(m);
End.
102
137
Ответы на вопрос:
Популярно: Информатика
-
ovveall13.04.2023 06:52
-
приветядима06.07.2020 10:17
-
СвежийГусь15.08.2021 22:26
-
Torior06.02.2023 10:51
-
skata919604.06.2022 11:53
-
danlis200323.11.2021 16:25
-
uncu4ek24.07.2020 01:22
-
tanyamonter08.08.2021 06:27
-
Незнайкаа1112.03.2022 21:57
-
8924391956719.11.2020 19:34