Исходное сообщение
"Выпуск серверной JavaScript-платформы Node.js 16.0" Отправлено anonimous, 22-Апр-21 14:37
>> Pascal was developed on the pattern of the ALGOL 60 language ... >Вот поэтму педивикия в качестве "основного" аргумента и считается моветоном. https://en.wikipedia.org/wiki/ALGOL_60 procedure Absmax(a) Size:(n, m) Result:(y) Subscripts:(i, k);     value n, m; array a; integer n, m, i, k; real y; comment The absolute greatest element of the matrix a, of size n by m,     is transferred to y, and the subscripts of this element to i and k; begin     integer p, q;     y := 0; i := k := 1;     for p := 1 step 1 until n do         for q := 1 step 1 until m do             if abs(a[p, q]) > y then                 begin y := abs(a[p, q]);                     i := p; k := q                 end end Absmax

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>>> Pascal was developed on the pattern of the ALGOL 60 language ... >>Вот поэтму педивикия в качестве "основного" аргумента и считается моветоном. > https://en.wikipedia.org/wiki/ALGOL_60 > procedure Absmax(a) Size:(n, m) Result:(y) Subscripts:(i, k); > value n, m; array a; integer n, m, > i, k; real y; > comment The absolute greatest element of the matrix a, of size n > by m, > is transferred to y, and the subscripts of > this element to i and k; > begin > integer p, q; > y := 0; i := k := 1; > for p := 1 step 1 until n > do > for q := 1 > step 1 until m do > > if abs(a[p, q]) > y then > > begin y := abs(a[p, q]); > > i := p; > k := q > > end > end Absmax
	Введите код, изображенный на картинке: