Найти сумму четных по значениям элементов каждого столбца массива

@Jana · Регистрация: 08.04.2012

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

Заполнить двумерный числовой массив А(5, 5) целыми числами. Найти сумму четных по значениям элементов каждого столбца массива. Определить номер столбца с наименьшей суммой четных элементов.

@Inocs · 10.04.2012, 02:52

"Вооот, нате возьмите пожалуйста" special for you

Pascal

program tomass;
var  a:array[1..5,1..5] of integer;
 
     ct,n,min,summ,j,i:integer;
 
begin
  randomize;
  min:=maxint;
  for j:=1 to 5 do
   begin
    for i:=1 to 5 do
        begin;
        a[j,i]:=random(50)+1;
        end;
   end;
 
  for j:=1 to 5 do
   begin
    ct:=0;
    for i:=1 to 5 do
    begin;
         if j mod 2=0 then
          begin
          ct:=ct+a[j,i];
          end;
    end;
 
 
    if j mod 2=0 then
      begin
        writeln('Summa chetnych znacheni',j,'-ogo stolbca elementov = ', ct);
        if ct<min then begin min:=ct; n:=j; end;
      end;
   end;
 
   writeln('Nomer stolbca s naimenshej summoj elementov = ',n,'(',min,')');
 
end.

@Jana 0 / 0 / 0 Регистрация: 08.04.2012 Сообщений: 13
		1
	Найти сумму четных по значениям элементов каждого столбца массива 09.04.2012, 23:21. Показов 1361. Ответов 1 Метки нет (Все метки) Заполнить двумерный числовой массив А(5, 5) целыми числами. Найти сумму четных по значениям элементов каждого столбца массива. Определить номер столбца с наименьшей суммой четных элементов. 0

	10.04.2012, 02:52

Найти сумму четных по значениям элементов каждого столбца массива

Решение