Ввести с клавиатуры 10 чисел - положительных и отрицательных. - вопрос №10129216 от Катттття 01.05.2022 23:29

Question

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

Катттття · 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....