// Измените имя массива на tab // Изменить описание массива так, чтобы был создан массив...

// Измените имя массива на 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.

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.

// Измените имя массива ** tab // Изменить описание массива так, чтобы был создан массив...