• двухмерные масивы. в целочисленной матрице размерность 10*10 найти сумму положительных элементов четных строк

Ответы 2

  • const n=10;

    var a:array [1..n,1..n] of integer;

    i,j,s:integer;

    begin

    for i:= 1 to n do

    begin

    for j:=1 to n do

    begin

    a[i,j]:=Random(21)-10;

    write(a[i,j]:4)

    end;

    writeln;

    end;

    for i:= 1 to n do

    if i mod 2 = 0 then

    for j:=1 to n do

    if a[i,j]>0 then s:=s+a[i,j];

    writeln ('Сумма положительных элементов чётных строк равна: ',s)

    end.

    • Автор:

      homerao7y
    • 6 лет назад
    • 0
  • // PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018// Внимание! Если программа не работает, обновите версию!

    begin

     var a := MatrRandom(10, 10, -99, 99);

     a.Println(4);

     Println(4 * a.ColCount * '-');

     a.ElementsWithIndexes.Where(t -> t[1].IsOdd and t[0].IsEven)

         .Sum(t -> t[0]).Println

    end.

    answer img
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years