Question

УМОЛЯЮ ! В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] – количество голосов, поданных за первого исполнителя, Dat[2] – за второго и т.д.). Определите, какое число будет напечатано в результате работы следующей программы. var k, m: integer;
Dat: array [1..10] of integer;
begin
Dat[1]:=56; Dat[2]:=70;
Dat[3]:=20; Dat[4]:=41;
Dat[5]:=14; Dat[6]:=22;
Dat[7]:=30; Dat[8]:=12;
Dat[9]:=65; Dat[10]:=35;
m:=0;
for k:=1 to 10 do
if Dat [k]>25 then
begin
m:=m+1
end;
writeln (m);
end.

Answer 1

var k, m: integer;

Dat: array [1..10] of integer;

begin

Dat[1]:=56; Dat[2]:=70;

Dat[3]:=20; Dat[4]:=41;

Dat[5]:=14; Dat[6]:=22;

Dat[7]:=30; Dat[8]:=12;

Dat[9]:=65; Dat[10]:=35;

m:=0;

for k:=1 to 10 do

if Dat [k]>25 then

begin

m:=m+1

end;

writeln (m);

end.

Объяснение: