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

Предыдущий
вопрос Следующий
вопрос