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

Помогите пожалуйста, очень срочно, 4 задание (информатика)
Гость
Ответ(ы) на вопрос:
Гость
Язык 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы