Ввести с клавиатуры 10 чисел - положительных и - вопрос №10129048 от danillirka 06.07.2020 20:21

Question

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

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