Ввести с клавиатуры 10 чисел - положительных и отрицательных. - вопрос №10128873 от chudnova2001kp07wio 31.12.2022 17:16

Question

Информатика: Ввести с клавиатуры 10 чисел - положительных и отрицательных. заменить все отрицательные числа их модулями и напечатать все полученные 10 чисел. это в паскале. напишите саму программу

chudnova2001kp07wio · Answer

var a:array [1..10] of integer;       i:integer; begin   for i:=1 to 10 do begin   readln(a[i]);   if a[i] 0 then a[i]:=abs(a[i]);   writeln(a[i]);   end; end....