Question

// Измените имя массива на tab

// Изменить описание массива так, чтобы был создан массив 4х5

// Изменить цикл так, чтобы был заполнен массив 4х5 случаными образом числами в диапазоне [0,1]

// Измените отводимое под запись элемента место на экране, отведя для этого 3 позиции

// Измените условия так, чтобы было найдено количество 0 в массиве

program zapoln_mas;

var i,j,k: integer;

mas:array [1..2,1..3] of integer;

begin

// блок заполнения массива

for i:=1 to 2 do

begin

for j:=1 to 3 do

begin

mas[i,j]:=random(4);

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

end;

writeln();

end;

// блок поиска элементов, удовлетворяющих условию

for i:=1 to 2 do

for j:=1 to 3 do

if mas [i,j]=3 then k:= k+1;

writeln('Найдено элементов: ',k);

end.

Answer 1

program zapoln_mas;

var

 i, j, k: integer;

 tab: array [1..4, 1..5] of integer;

begin

 // блок заполнения массива

 for i := 1 to 4 do

 begin

   for j := 1 to 5 do

   begin

     tab[i, j] := random(2);

     write(tab[i, j]:3);    

   end;

   writeln();  

 end;

 // блок поиска элементов, удовлетворяющих условию  

 for i := 1 to 4 do  

   for j := 1 to 5 do    

     if tab[i, j] = 0 then k := k + 1;

 writeln('Найдено элементов: ', k);  

end.