Дан целочисленный массив из 5 элементов возвести в квадрат отрицательные элементы

246

341

Посмотреть ответы 3

Ответы на вопрос:

serg197200

Информатика

4,4(34 оценок)

Какой яп? pascal? var a: array[1..5] of integer; i: integer; begin writeln('введите 5 чисел'); for i: =1 to 5 do readln(a[i]); for i: =1 to 5 do if a[i]< 0 then writeln(sqr(a[i])); readln; end.

katecat20171

Информатика

4,6(25 оценок)

Program square_negative; var a: array[1..5] of integer; i: integer; begin writeln('ввод массива: '); for i : = 1 to 5 do begin write('a[', i, '] = '); readln(a[i]); if a[i] < 0 then a[i] : = a[i] * a[i]; end; writeln('вывод изменённого массива: '); for i : = 1 to 5 do write(a[i], ' '); end.