Регистрация
borisenkkov
18.04.2023 00:09
Информатика
Есть ответ 👍

Из элементов массива a, состоящего из 10 элементов, заполненный случайным образом, сформировать массив b по следующему правилу: положительные элементы перенести в массив b без изменений, а отрицательные заменить их модулем. распечатать оба массива.

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

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

blackfantom
blackfantom
4,6(81 оценок)
Var a,b: array [1..10] of integer; i: integer; begin for i: =1 to 10 do a[i]: =random(1001)-1000; for i: =1 to 10 do b[i]: =abs(a[i]); for i: =1 to 10 do write(a[i],' '); writeln; for i: =1 to 10 do write(b[i],' '); end.
liznesterencko
liznesterencko
4,4(17 оценок)

const n = 15; var a: array[1..n] of integer; i, j, tmp: integer; begin for i : = 1 to n do begin a[i] : = random(50); write(a[i], ' '); end; writeln;

for i : = 1 to n - 1 do for j : = 1 to n - i do if a[j] > a[j+1] then begin tmp : = a[j]; a[j] : = a[j+1]; a[j+1] : = tmp end;

write('по возрастанию: '); for i : = 1 to n do write(a[i], ' '); end.

Популярно: Информатика