Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы.

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.

sunnyAkhhhh    1   23.04.2020 09:15    8