Написать программу на паскале написать программу генератора случайных чисел от -100 до 100, и сделать так, чтобы сбоку от отрицательного числа показывалось такое же положительное 15

183

470

Посмотреть ответы 2

Ответы на вопрос:

samuraterikov0

Информатика

4,6(70 оценок)

Var i: integer; mas: array [1..5] of integer; begin randomize; for i: =1 to 5 do begin mas[i]: =random(-100,100); write(mas[i],' '); end; writeln(' '); for i: =1 to 5 do begin if mas[i]< 0 then write(mas[i],' ',abs(mas[i]),' ') else write(mas[i],' '); end; end.

A1n2g3e4l5i6n7a87

Информатика

4,4(97 оценок)

Var i,x: integer; m: array[10..20] of integer; begin randomize; for i: =10 to 20 do m[i]: =random(11)+10; for i: =10 to 20 do write(m[i],' '); writeln; x: =m[10]; m[10]: =m[20]; m[20]: =x; for i: =10 to 20 do write(m[i],' '); writeln; end. 2) var max,min,i,x: integer; m: array[10..20] of integer; begin min: =10; max: =10; randomize; for i: =10 to 20 do m[i]: =random(100)+1; for i: =10 to 20 do write(m[i],' '); writeln; for i: =10 to 20 do begin if m[i]< m[min] then min: =i; if m[i]> m[max] then max: =i; end; x: =m[min]; m[min]: =m[max]; m[max]: =x; for i: =10 to 20 do write(m[i],' '); writeln; end.