Элементы заданного b(n) переписать в новый массив a(n) в обратном порядке( паскаль)

176

345

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

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

helissieble

Информатика

4,7(65 оценок)

// pascalabc.net 3.1, сборка 1179 от 29.02.2016 begin var b: =arrrandom(readinteger('n='),10,99); b.println; var a: =b.reverse.toarray; a.println end. тестовое решение: n= 13 53 75 96 56 24 37 99 57 96 41 51 31 50 50 31 51 41 96 57 99 37 24 56 96 75 53

vindi1

Информатика

4,7(69 оценок)

Const n = 20; var a,b: array [1..n] of integer; i : integer; begin //для проверки заполним массив сл. числами for i : = 1 to n do begin b[i] : = random(41) - 20; write(b[i]: 4); end; writeln; //вывод в другой массив for i : = 1 to n do begin a[i] : = b[n-i+1]; write(a[i]: 4); end; end.