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