Помогите пожалуйста, очень срочно, 4 задание (информатика)
Приложения:

Ответы на вопрос
Ответил Evgesha090
0
Язык Pascal, работа на массиве. с заполнением с клавиатуры. Ты заполняешь 9 элементов ( через enter ), а он тебе выводит тоже самое, только с противоположными знаками
Var x: array[1..9] of integer;
Var i,h:integer;
Begin
for i:= 1 to 9 do
Begin;
Readln(h);
x[i] := -1*h;
end;
for i:=1 to 9 do
Begin;
Writeln('Элемент номер ',i,' массива: ',x[i]);
end;
readln(x);
end.
Var x: array[1..9] of integer;
Var i,h:integer;
Begin
for i:= 1 to 9 do
Begin;
Readln(h);
x[i] := -1*h;
end;
for i:=1 to 9 do
Begin;
Writeln('Элемент номер ',i,' массива: ',x[i]);
end;
readln(x);
end.
Новые вопросы
Алгебра,
2 года назад
Английский язык,
2 года назад
Биология,
9 лет назад
Химия,
9 лет назад
Алгебра,
9 лет назад
Литература,
9 лет назад