Регистрация
Qwesyukir
25.06.2023 18:18
Информатика
Есть ответ 👍

Скласти алгоритм дій та прописати до них скрипти​

160
375
Посмотреть ответы 1

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

lirazelio
lirazelio
4,5(21 оценок)
Var a: array[1..10,1..10] of integer; i, j, j1, max, s: integer; begin for i: =1 to 10 do for j: =1 to 10 do readln(a[i,j]); max : = a[1,1]; for i: =1 to 10 do for j: =1 to 10 do if a[i,j]> max then begin max : = a[i,j]; j1: =j; end; for i: =1 to 10 do begin s: =a[i, 1]; a[i, 1] : = a[i, j1]; a[i, j1] : = s; end; end.

Популярно: Информатика