Question

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

Answer 1

Исправил программу, теперь работает:

• program m3;
• var i, p: integer;
• a: array [1..6] of integer;
• begin
• for i:= 1 to 6 do a[i]:= i + 3;
• p:= 1;
• for i:= 1 to 6 do
• if a[i]>5 then p:= p * a [ i ];
• writeln ('p = ', p)
• end.

Ответ: во вложении.