Question

Дана программа. Определить результат выполнения.


program N02;
const A: array [1..10] of integer = (1,36,2,18,3,12,4,9,6,6);
var i,k: integer;
begin
k:=0;
for i:=1 to 7 do
if A[i] write(k)
end.

Answer 1

Программа выдаст ошибку, потому что конструкция if в Паскале должна содержать ключевое слово "then", которого здесь нет.