Найти сумму элементов чётных строк массива. Вывести сам массив и сумму

@FRepresentation · Регистрация: 18.10.2012

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

Найти сумму элементов чётных строк массива. Вывести сам массив и сумму.

Комментарий модератора

FRepresentation, будьте внимательны с выбором раздела!

@ermolay · 23.10.2012, 02:56

Pascal

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  n,m,i,j,s: integer;
begin
  write('Введите размеры массива n, m: ');
  readln(n,m);
  s:=0;
  writeln('Массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
      if i mod 2=0 then s:=s+a[i,j];
    end;
    writeln;
  end;
  writeln;
  writeln('Сумма четных строк массива = ',s);
  readln;
end.

	23.10.2012, 02:56

Опции темы

Найти сумму элементов чётных строк массива. Вывести сам массив и сумму

Решение