saa002
?>

Рассмотрите срипт. найдите и справте ошибки в скрипте.

Информатика

Ответы

andreanikin
// 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
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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Рассмотрите срипт. найдите и справте ошибки в скрипте.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

paninsv
milkiev
НиколаевнаФ
yuip2008
Vasilii1891
tetralek
Aleks0091
iivanov54
ekaterinava90
mmihail146
pafanasiew
versalmoda2971
Nataliya Aleksandr1197
Александровна1685
Viktoriya405