Задать вопрос
6 апреля, 14:01

найдите количество элементов массива М (5,5) равных 22 значения которых задаются датчиком случайных чисел

+4
Ответы (1)
  1. 6 апреля, 15:46
    0
    Program Matr22;

    Uses Crt;

    type matrix=array[1 ... 5,1 ... 5] of integer;

    var m:matrix;

    n:byte;

    procedure Auto;

    var i, j:integer;

    begin

    n:=0;

    randomize;

    for i:=1 to 5 do

    begin

    for j:=1 to 5 do

    begin

    m[i, j]:=random (50) + 5;

    if (m[i, j]=22) then n:=n+1;

    end;

    end;

    end;

    procedure PrintMatrix (mas:matrix;) ;

    var j, k:integer;

    begin

    for k:=1 to 5 do

    begin

    for j:=1 to 5 do

    begin

    write (mas[k, j]:3) ;

    end;

    writeln;

    end;

    end;

    begin

    clrscr;

    Auto;

    PrintMatrix (m) ;

    writeln;

    writeln ('Количество элементов равных 22:', n) ;

    readkey;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «найдите количество элементов массива М (5,5) равных 22 значения которых задаются датчиком случайных чисел ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы