динка82

04.06.2021 23:26 •  Информатика

Определите, что будет выведено в результате выполнения следующей программы: program m1;
var i, k: integer;
a: array [1..10] of integer;
begin
for i:= 1 to 10 do a [ i ]: = i - 5;
k:= 0;
for i:= 1 to 10 do
if a [ i ]>=0 then k:= k + 1;
writeln (‘k= ‘, k)
end.