УМОЛЯЮ ! В таблице 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.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
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.
Объяснение: