Задан массив K (n). И отрицательные элементы массива заменить на их квадраты. Вывести их индексы и новые значения.

Question

Информатика

Северьян

29 июня, 18:54

Задан массив K (n). И отрицательные элементы массива заменить на их квадраты. Вывести их индексы и новые значения.

+3

Ответы (1)

Знаете ответ?

Полюся · Answer 1

Const

i=10;

var k:array[1 ... i] of integer;

n:integer;

begin

writeln ('Введите элементы массива') ;

for n:=1 to i do begin

read (k[n]) ;

if k[n]<0 then k[n]:=sqr (k[n]) ;

end;

for n:=1 to i do write (k[n], ' ') ;

end.