// pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! в других версиях языка работа не гарантируется! begin var m: =readinteger('количество строк в массиве: '); var n: =readinteger('количество столбцов в массиве: '); writeln('*** исходный массив a[',m,',',n,'] ***'); var a: =matrrandom(m,n,-50,50); a.println(4); writeln(4*a.colcount*'-'); var k: =a.rows.select(x-> x.aggregate(0,(x,y)-> x+.indexmax; for var j: =0 to (n-1) div 2 do swap(a[k,j],a[k,n-1-j]); a.println(4) end. пример количество строк в массиве: 4 количество столбцов в массиве: 5 *** исходный массив a[4,5] *** 29 36 -50 -4 -32 -1 -10 -7 -47 -50 -16 4 48 -41 -43 8 46 45 14 -44 29 36 -50 -4 -32 -1 -10 -7 -47 -50 -16 4 48 -41 -43 -44 14 45 46 8
websorokin
09.10.2020
1. pascalabc.net // pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! begin var x: =readreal('введите число: '); writeln((x> =0) and (x< =2)? 'да': 'нет') end. пример введите число: 1.17 да 2. на этой же версии в стиле традиционного школьного паскаля var x: real; begin write('введите число: '); read(x); if (x> =0) and (x< =2) then writeln('да') else writeln('нет') end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Рассмотрите срипт. найдите и справте ошибки в скрипте.