Ввести с клавиатуры 10 чисел - положительных и отрицательных. - вопрос №12955010 от jenek28022008 05.08.2021 03:41

Question

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

jenek28022008 · 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....