Алгоритм.

[Paradigma]

Есть код:

var a:array[0..10,1..10]of integer; i,j,imin,imax,min,max,s:integer;
begin 
randomize; for i:=1 to 10 do for j:=1 to 10 do a[i,j]:=random(199)-99; 
for i:=1 to 10 do begin for j:=1 to 10 do write(a[i,j]:4); writeln end;
s:=0; for i:=1 to 10 do if a[i,i]>0 then inc(s); writeln('S=',s); 
min:=a[1,1]; max:=a[1,1]; imin:=1; imax:=1; 
for i:=1 to 10 do for j:=1 to 10 do 
  begin if a[i,j]<min then begin min:=a[i,j]; imin:=i end; 
        if a[i,j]>max then begin max:=a[i,j]; imax:=i end;
  end;
writeln('imin=',imin,'  min=',min,'  imax=',imax,'  max=',max); writeln;
a[0]:=a[imin]; a[imin]:=a[imax]; a[imax]:=a[0]; 
for i:=1 to 10 do begin for j:=1 to 10 do write(a[i,j]:4); writeln end;
readln 
end.

Помогите составить алгоритм.. Желательно сегодня = (

[Grag]

Сообщение от Paradigma

Есть код:

var a:array[0..10,1..10]of integer; i,j,imin,imax,min,max,s:integer;
begin
randomize; for i:=1 to 10 do for j:=1 to 10 do a[i,j]:=random(199)-99;
for i:=1 to 10 do begin for j:=1 to 10 do write(a[i,j]:4); writeln end;
s:=0; for i:=1 to 10 do if a[i,i]>0 then inc(s); writeln('S=',s);
min:=a[1,1]; max:=a[1,1]; imin:=1; imax:=1;
for i:=1 to 10 do for j:=1 to 10 do
begin if a[i,j]<min then begin min:=a[i,j]; imin:=i end;
if a[i,j]>max then begin max:=a[i,j]; imax:=i end;
end;
writeln('imin=',imin,' min=',min,' imax=',imax,' max=',max); writeln;
a[0]:=a[imin]; a[imin]:=a[imax]; a[imax]:=a[0];
for i:=1 to 10 do begin for j:=1 to 10 do write(a[i,j]:4); writeln end;
readln
end.


Помогите составить алгоритм.. Желательно сегодня = (

А ты не пробовал программу писать в одну строку? Прикольно читается!!!
И даже шифровать ничего не надо! Хрен кто что поймет!

[Paradigma]

Сообщение от Grag

А ты не пробовал программу писать в одну строку? Прикольно читается!!!
И даже шифровать ничего не надо! Хрен кто что поймет!

Я здесь хочу увидеть адекватный ответ. Если не знаешь - лучше промолчи. И да, я девушка.

[Serge_Bliznykov]

Paradigma, даже если Вы — девушка, вежливость не будет излишней!

2) по сути вопроса,если я правильно понял, Вам нужна блок-схема? Если да, тогда поиском поищите на форуме по ключевому слову FCEditor

3) Вам совершенно справедливо заметили, что лучше программу форматировать так, чтобы она была ЧИТАБЕЛЬНОЙ!
например, так:

var a: array[0..10, 1..10] of integer; 
    i, j, imin, imax, min, max, s: integer;
begin
  randomize;
  for i := 1 to 10 do
    for j := 1 to 10 do
      a[i, j] := random(199) - 99;
  for i := 1 to 10 do
  begin
    for j := 1 to 10 do write(a[i, j]: 4);
    writeln
  end;
  s := 0;
  for i := 1 to 10 do
    if a[i, i] > 0 then inc(s);
  writeln('S=', s);
  min := a[1, 1];
  max := a[1, 1];
  imin := 1;
  imax := 1;
  for i := 1 to 10 do
    for j := 1 to 10 do
    begin
      if a[i, j] < min then
      begin
        min := a[i, j];
        imin := i
      end;
      if a[i, j] > max then
      begin
        max := a[i, j];
        imax := i
      end;
    end;
  writeln('imin=', imin, ' min=', min, ' imax=', imax, ' max=', max);
  writeln;
  a[0] := a[imin];
  a[imin] := a[imax]; a[imax] := a[0];
  for i := 1 to 10 do
  begin
    for j := 1 to 10 do
      write(a[i, j]: 4);
    writeln
  end;
  readln
end.

[Tirendus]

var a: array[0..10,1..10] of integer;
i, j, xmax, xmin, ymin, ymax, min, max, s :integer;
begin 
	randomize;
	for i := 1 to 10 do
		for j := 1 to 10 do
		a[i,j] := random(199) - 99; 
		
	for i := 1 to 10 do begin
		for j := 1 to 10 do
			write(a[i,j] : 4);
			writeln;
	end;
	s:=0;
	for i := 1 to 10 do
		if a[i,i] > 0 then 
			inc(s); writeln('S=', s); 
		
	min := a[1,1];
	max := a[1,1];
	xmin := 1;
	xmax := 1;
	ymin := 1;
	ymax := 1;
	
	for i := 1 to 10 do
		for j := 1 to 10 do begin
			if a[i,j] < min then begin
				min := a[i,j];
				xmin := i;
				ymin := j;
			end; 
			if a[i,j] > max then begin
				max := a[i,j];
				xmax := i;
				ymax := j;
			end;
	end;
	writeln('xmin=', xmin, ' xmax=', xmax, ' ymin=', ymin, ' ymax=', ymax, ' min=', min, ' max=', max); writeln;
end.

Только я вот чего не пойму... вот эта часть, это попытка отсортировать массив?

a[0]:=a[imin]; a[imin]:=a[imax]; a[imax]:=a[0]; 
for i:=1 to 10 do begin for j:=1 to 10 do write(a[i,j]:4); writeln end;

кстати, массив двумерный, даже, если бы алгоритм сортировки был написан правильно, такая штука не сработала бы.

[Serge_Bliznykov]

кстати, массив двумерный,

+1

	xmin := 1;
	xmax := 1;
	ymin := 1;
	ymax := 1;

это, кстати, тоже нерабочий бред..

[Paradigma]

Это не я писала. И ответила в таком же тоне, как ответили и мне. а за "FCEditor" спасибо.

[Tirendus]

Serge_Bliznykov

Вчитайтесь в тот код, который выложил я, этот "нерабочий бред" находит индексы минимальных элементов массива.

Paradigma
Не сразу понял, что вам нужна блок-схема, но FCEditor не поможет, если код будет нерабочим.