Question

Определите, что будет выведено в результате выполнения следующей программы:
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.

Answer 1

Ответ:

программа считает количество не отрицательных элементов массива

будет выведено:

k=6