|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.01.2011, 15:08 | #1 |
Регистрация: 29.12.2010
Сообщений: 7
|
Нужно написать алгоритм
нужно написать алгоритм по этой программе.
Код: program lab3; uses crt; var a : array [1..100,1..100] of Integer; i,j,N,mini,minj,maxi,maxj,t : Integer; begin writeln('Введите размерность массива'); read(N); for i:=1 to N do for j:=1 to N do a[i,j] := random(100); for i:=1 to N do begin for j:=1 to N do write(a[i,j]:3,' '); writeln; end; mini := 2 ; minj := 1; for i:=2 to N do for j:= 1 to i-1 do if a[i,j] < a[mini,minj] then begin mini:=i;minj:=j; end; writeln(mini,' ',minj); maxi := 1 ; maxj := 1; for i:=1 to N do for j:= 1 to N-i do if a[i,j] > a[maxi,maxj] then begin maxi:=i;maxj:=j;end; writeln(maxi,' ',maxj); t:= a[maxi,maxj]; a[maxi,maxj] := a[mini,minj]; a[mini,minj] := t; writeln; for i:=1 to N do begin for j:=1 to N do write(a[i,j],' '); writeln; end; end. Заранее благодарен всем , кто поможет. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужно реализовать алгоритм | Shamonya | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 2 | 15.11.2010 14:54 |
Нужно найти ошибку или написать алгоритм по проще! (строки) | velamut | Помощь студентам | 3 | 18.06.2010 16:09 |
Нужно написать алгоритм в СИ шефрования и дешифрования AES 128 | velamut | Помощь студентам | 0 | 18.06.2010 01:08 |
Написать алгоритм на Си | zmei88 | Общие вопросы C/C++ | 2 | 19.01.2010 00:46 |