В таблице Dat хранятся данные о количестве сделанных учениками заданий (Dat[1] заданий сделал первый ученик, Dat[2] – второй и т. д.).

[email protected] в категроии Информатика, вопрос открыт 23.01.2018 в 15:56

Определите, какое число будет напечатано в результате работы следующей программы. var Dat: array[1..7] of integer;
k, day: integer;
begin
Dat[1] := 9; Dat[2] := 11; Dat[3] := 10; Dat[4] := 13;Dat[5] := 8; Dat[6] := 5; Dat[7] := 11;
day := 0;
for k := 1 to 7 do begin
if Dat[k] <= 10 then
day := day+1;
end;
writeln(day); end.