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

Встречено ':', а ожидалось ';'
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]gt;0) then
write (a[i]=a[i]:2)
end;
end.
Что делать?

Задать свой вопрос
Олеся Руссиян
в какой программе работаешь ?
Данил Фейтельман
паскаль
Ангела Затяжкина
а есть иной способ сократить?
1 ответ

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

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

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

Антон Нурик
надобно найти положительные элементы и уменьшить их вдвое
Дарья Чудекаева
Я полагаю, что уменьшить их в два раза - это элемент/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;
Николай Бекузаров
так?
Роман Беломеетных
больше схоже на правду
Vasilisa Sahonchik
только результат выдаёт отрицательный
Галина Неговская
Если надобно, то могу написать программку, но только под другим вопросом
Андерсон Дашенька
да не надобно
Стефания Дауева
прости что отвлёк
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт