Найти сумму наименьших элементов нечетных строк и наибольших элементов четных строк матрицы

@madi · Регистрация: 28.04.2014

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

Добрый день!
Дана матрица размером N. Найти сумму наименьших элементов ее нечетных строк и наибольших элементов ее четных строк.

Спасибо тебе добрый человек!

@Puporev · 29.04.2014, 17:01

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,mn,mx,s1,s2:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:3);
   end;
  writeln;
 end;
s1:=0;
s2:=0;
for i:=1 to n do
if odd(i) then
 begin
  mn:=a[i,1];
  for j:=1 to n do
  if a[i,j]<mn then mn:=a[i,j];
  s1:=s1+mn
 end
else
 begin
  mx:=a[i,1];
  for j:=1 to n do
  if a[i,j]>mx then mx:=a[i,j];
  s2:=s2+mx
 end;
writeln('Сумма минимальных в нечетных строках=',s1);
writeln('Сумма максимальных в четных строках=',s2);
readln
end.

@madi 0 / 0 / 0 Регистрация: 28.04.2014 Сообщений: 86
		1
	Найти сумму наименьших элементов нечетных строк и наибольших элементов четных строк матрицы 29.04.2014, 15:34. Показов 2437. Ответов 1 Метки нет (Все метки) Добрый день! Дана матрица размером N. Найти сумму наименьших элементов ее нечетных строк и наибольших элементов ее четных строк. Спасибо тебе добрый человек! 0

Опции темы

Найти сумму наименьших элементов нечетных строк и наибольших элементов четных строк матрицы

Решение