Предметы
- Математика
- Русский язык
- Алгебра
- Английский язык
- Литература
- Физика
- Химия
- История
- Геометрия
- Биология
- География
- Другие предметы
- Қазақ тiлi
- Информатика
- Українська мова
- Обществознание
- Окружающий мир
- Українська література
- Музыка
- Немецкий язык
- Экономика
- Право
- Беларуская мова
- ОБЖ
- Французский язык
- Психология
- Технология
- Физкультура и спорт
- МХК
- Астрономия
- Кыргыз тили
- Оʻzbek tili
- Черчение
- Уход за собой
Выдает ошибку, подскажите в чем, пожалуйста. Программа паскаль
Program PVIT28;
const
n=10;
Var i, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, otr,N: integer;
massiv: array[1..n] of integer;
Begin
for 1 := 1 to N do
Begin
writeln ('значение', i, '=');
readln (massiv[i]);
end;
For i := 1 to n do
Begin
if massiv[i] < 0 then
Begin
otr:= massiv[i];
massiv[i] := sqr(otr);
WriteLn(massiv)
end.