Задать вопрос
16 октября, 02:33

Определить количество положительных элементов каждого столбца матрицы X = (x1k) и прописать их в один массив m (m1, m2 ... mk)

+5
Ответы (1)
  1. 16 октября, 06:28
    0
    Var ma:array of array of integer;

    ar:array of integer;

    i, k, j, n, m:integer;

    begin;

    randomize;

    readln (n) ;

    readln (m) ;

    k:=0;

    setlength (ar, m+1) ;

    setlength (ma, n+1) ;

    for i:=1 to n do

    setlength (ma[i], m+1) ;

    writeln ('Matrix:') ;

    for i:=1 to n do

    begin;

    writeln;

    for j:=1 to m do

    begin;

    ma[i, j]:=random (21) - 10;

    write (ma[i, j]:4) ;

    end;

    end;

    for i:=1 to m do

    begin;

    for j:=1 to n do

    if ma[j, i]>0 then inc (k) ;

    ar[i]:=k;

    k:=0;

    end;

    writeln;

    writeln ('Final array:') ;

    for i:=1 to m do

    write (ar[i]:4) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Определить количество положительных элементов каждого столбца матрицы X = (x1k) и прописать их в один массив m (m1, m2 ... mk) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы