Найти минимальную сумму положительных элементов диагоналей, параллельных побочной диагонали

@nurb · Регистрация: 26.11.2012

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

Дан массив A[5,5]. Найти минимальную сумму положительных элементов диаго-налей, параллельных побочной диагонали.

@Puporev · 15.12.2012, 15:19

Pascal

uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    i,j,z,mins,sum:integer;
begin
clrscr;
randomize;
writeln('Массив:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-5+random(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
{минимальная сумма положительных элементов из всех диагоналей }
writeln('Суммы положительных на диагоналях, параллельных побочной:');
mins:=maxint;
for z:=n-1 downto -n+1 do
 begin
  {сумма на диагонали, отстоящей на z от побочной}
  sum:=0;
  for j:=1 to n do
  if (j-z>0) and (j-z<=n)and(a[j-z,n-j+1]>0) then  sum:=sum+a[j-z,n-j+1];
  writeln(n-z:2,' = ',sum);
  if sum<mins then mins:=sum;
 end;
writeln('Минимальная сумма на диагоналях, параллельных побочной=',mins);
readln
end.

@nurb 0 / 0 / 0 Регистрация: 26.11.2012 Сообщений: 6
		1
	Найти минимальную сумму положительных элементов диагоналей, параллельных побочной диагонали 15.12.2012, 08:42. Показов 1872. Ответов 1 Метки нет (Все метки) Дан массив A[5,5]. Найти минимальную сумму положительных элементов диаго-налей, параллельных побочной диагонали. 0

	15.12.2012, 15:19

Найти минимальную сумму положительных элементов диагоналей, параллельных побочной диагонали

Решение