Составте программу генерирование случайных чисел от -100 до100.Выдавать на экран по одному числу в каждой строчке , если число отрицательное , то выводить противоположно В два столбика
Составте программу генерирование случайных чисел от -100 до100.Выдавать на экран по одному числу в каждой строчке , если число отрицательное , то выводить противоположно
В два столбика
Гость
Ответ(ы) на вопрос:
Гостьvar
i:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(-100,100);
end;
for i:=1 to 10 do begin
if mas[i]<0 then
writeln(' ', mas[i])
else
writeln(mas[i],' ');
end;
end.
Не нашли ответ?
Похожие вопросы