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

Kros228volk225 Kros228volk225    2   08.03.2019 18:10    102

Ответы
Mia871 Mia871  24.05.2020 07:38

Program num1;
Uses crt;
Var
a :array [1..10] of integer;
i : integer;
Begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']=');readln(a[i])
end;
for i:=1 to 10 do
if a[i]<0 then a[i]:=abs(a[i]);
writeln('');
for i:=1 to 10 do
writeln('a[',i,']=',a[i]);
End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика