1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Вот алгоритм поиска максимального числа в массиве.
Код
program maxmassiv(input,output); var a: array [1..10] of Byte; Max:integer; I:byte; begin I:=0; for I:=1 to 10 do begin writeln('Enter an integer:'); readln(a[i]); end; Max:=A[1]; For I:=1 to 10 do begin if Max<A[I] then Max:=A[I]; end; writeln(Max); readln; readln; end.
Если переворот на 90 градусов(например вправо), то вот он алгоритм(мой): program perevorot;
Код
uses Crt; const n=5; var a,c:array [1..n,1..n] of integer;i,j,s:integer; begin ClrScr; Randomize; s:=n; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=Random(21)+10; c[j,s]:=a[i,j]; write(a[i,j],' '); end; s:=s-1; writeln; end; writeln; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=c[i,j]; write(a[i,j],' '); end; writeln end; readln end.
если на 180 градусов (тоже вправо), то алгоритм чуть-чуть изменяется на:
Код
s:=n; for i:=1 to n do begin k:=n; for j:=1 to n do begin a[i,j]:=Random(21)+10; c[s,k]:=a[i,j]; write(a[i,j],' '); k:=k-1; end; s:=s-1; writeln; end;