УМОЛЯЮ, ПОМОГИТЕ! В таблице 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.
Answers & Comments
Ответ:
6
Объяснение:
Программа вставлена в компилятор. Скрин - вывод.