Паскаль: составить массив из 5 элементов с клавиатуры - вопрос №15343765 от arzanix 15.04.2023 08:52

Question

Информатика: Паскаль: составить массив из 5 элементов с клавиатуры и вывести в строку.если элемент положительный,то заменить его на противоположный.

arzanix · Answer

var a: array[1..5] of integer; i: integer;begin for i := 1 to 5 do begin readln(a[i]); if(a[i] 0) then a[i] := a[i] * (-1); end; for i := 1 to 5 do write(a[i], );end....