16 апреля, 06:52

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

+3
Ответы (1)
  1. 16 апреля, 08:37
    0
    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.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Двухмерные масивы. в целочисленной матрице размерность 10*10 найти сумму положительных элементов четных строк ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Новые вопросы по информатике
Устройство ситевой памяти
Ответы (1)
7. Определите, что будет напечатано в результате выполнения программы (записанной ниже на разных языках программирования) : var n, l : integer; begin n:=0; l:=1; while l <11 do begin n:=n+l; l:=l+1; end; write (n) ; end.
Ответы (1)
Какой блок является результатом построения блок-схемы алгоритма? A. введение B. обработка C. логическое D. Выпуск
Ответы (1)
Перечислите три способа которые позволяют повысить производительность процессора
Ответы (2)
Как в pascal abc заполнить массив случайными числами в диапазоне [-10000; 10000]?
Ответы (1)
Число 49 в десятичной системе счисления выглядит как 100 в некоторой системе счисления. Какая это система счисления?
Ответы (1)
Составьте допустимый IP-адрес из следующих фрагментов. Ответ введите в виде последовательности букв. Если адресов будет несколько, то записать все последовательности. A B C D E F 62.127 256. 193.2 192 4.111
Ответы (1)
Профессии которые работают с программой Microsoft Exel
Ответы (1)
Определите значение переменной "c" после выполнения фрагмента программы: a:=60 b:=10 a: = a-b*3 if a
Ответы (2)
Дана последовательность операторов: a:=1; b:=1; repeat a:=a+1 until a>3; s:=a+b; Сколько раз выполнится "тело цикла" и каким будут значения переменных a, b, s после завершения этой последовательности операторов?
Ответы (1)