// pascalabc.net 3.3, сборка 1590 от 03.12.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',99); a.println; a: =a.reverse.toarray; a.println end. пример n= 13 1 80 -54 36 84 -43 -88 43 36 9 -14 -19 -38 -38 -19 -14 9 36 43 -88 -43 84 36 -54 80 1 вариант для вывода элементов массива в 8 позициях: begin var a: =arrrandom(readinteger('n=',99); a.select(t-> format('{0,8}',(''); a: =a.reverse.toarray; a.select(t-> format('{0,8}',('') end.
juliavovo
19.01.2022
//pascal var a: array [1..10] of byte; i, min, minid: byte; begin randomize; min : = 100; for i : = 1 to 10 do begin a[i] : = random(20) + 1; if a[i] < min then begin min : = a[i]; minid : = i; end; write(a[i], ' '); end; writeln; writeln('минимальный элемент a[',minid,'] = ', min); readln; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Поставьте вместо знака ? знак < , > или = 285десять внизу ? 11dшестнадцать внизу