Составить блок-схему к программе обмена местами строк матрицы с наибольшей и наименьшей суммой элементов

@busha · Регистрация: 26.11.2015

Author24 — интернет-сервис помощи студентам

Написать блок схему к этой программе. Заранее огромное спасибо))
В действительной матрице А(5;6) поменять местами строки с наибольшей и наименьшей суммой элементов.

Pascal

var   i,j,maxi,mini,s,s1,s2,x :integer;
   a:array[1..5,1..6] of integer;
begin
randomize;
for i:=1 to 5 do
begin
s:=0;
  for j:=1 to 6 do
  begin
   a[i,j]:=random(5);
   s:=s+a[i,j];
   write(a[i,j]:4);
  end;
writeln('s=',s);
end;
maxi:=1; mini:=1;
s:=0; s1:=0; s2:=1000;
for i:=1 to 5 do
begin
  for j:=1 to 6 do
   s:=s+a[i,j];
 if s>s1 then begin s1:=s; maxi:=i end;
 if s<s2 then begin s2:=s; mini:=i end;
 s:=0;
end;
for j:=1 to 6 do
begin
 x:= a[mini,j];
 a[mini,j]:=a[maxi,j];
 a[maxi,j]:=x;
end;
for i:=1 to 5 do
begin
  for j:=1 to 6 do
   write(a[i,j]:4);
end;
end.

@DoctorCrazy · 04.12.2015, 10:39

busha, вот

@DoctorCrazy 2 / 2 / 6 Регистрация: 27.05.2010 Сообщений: 45
	04.12.2015, 10:39	2
	busha, вот 1

Опции темы