Встречено ':', а ожидалось ';' const n=10; var a:array[1..n] of integer; i:integer; begin...

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. Что делать?

Comments

в какой программе работаешь ?

---

паскаль

---

а есть другой способ сократить?

Answer 1

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

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

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

Comments

надо найти положительные элементы и уменьшить их вдвое

---

Я полагаю, что уменьшить их вдвое - это элемент/2

---

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

---

const n=10;var a:array[1..n] of real; i:integer;begin for i:=1 to n do a[i]:=random (21)-10; begin for i:=1 to n do if (a[i]>0) then a[i]:=a[i]/2; writeln (a[i]) end;

---

так?

---

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

---

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

---

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

---

да не надо

---

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