Question

Встречено ':', а ожидалось ';'
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
a[i]:=random (21)-10;
begin
if (a[i]>0) then
write (a[i]=a[i]:2)
end;
end.
Что делать?

Answer 1

Я полагаю из-за :2 в строчке write (a[i]=a[i]:2)

Наверное программа быа постороена неправильно, но могут быть и другие нюансы.

Предлагаю Вам пользоваться программой Lazarus для программирования на pascal.

Answer 2

больше похоже на правду

Answer 3

только результат выдаёт отрицательный

Answer 4

Если надо, то могу написать программу, но только под другим вопросом

Answer 5

да не надо

Answer 6

прости что отвлёк