// Измените имя массива на ta
// Изменить описание массива так, чтобы был создан массив 4х
// Изменить цикл так, чтобы был заполнен массив 4х5 случаными образом числами в диапазоне [0,1
// Измените отводимое под запись элемента место на экране, отведя для этого 3 позици
// Измените условия так, чтобы было найдено количество 0 в массив
program zapoln_mas
var i,j,k: integer
mas:array [1..2,1..3] of integer
begi
// блок заполнения массив
for i:=1 to 2 d
begi
for j:=1 to 3 d
begi
mas[i,j]:=random(4)
write (mas[i,j]:4)
end
writeln()
end
// блок поиска элементов, удовлетворяющих услови
for i:=1 to 2 d
for j:=1 to 3 d
if mas [i,j]=3 then k:= k+1
writeln('Найдено элементов: ',k)
end.
// Измените имя массива на ta
// Изменить описание массива так, чтобы был создан массив 4х
// Изменить цикл так, чтобы был заполнен массив 4х5 случаными образом числами в диапазоне [0,1
// Измените отводимое под запись элемента место на экране, отведя для этого 3 позици
// Измените условия так, чтобы было найдено количество 0 в массив
program zapoln_mas
var i,j,k: integer
mas:array [1..2,1..3] of integer
begi
// блок заполнения массив
for i:=1 to 2 d
begi
for j:=1 to 3 d
begi
mas[i,j]:=random(4)
write (mas[i,j]:4)
end
writeln()
end
// блок поиска элементов, удовлетворяющих услови
for i:=1 to 2 d
for j:=1 to 3 d
if mas [i,j]=3 then k:= k+1
writeln('Найдено элементов: ',k)
end.
// Изменить описание массива так, чтобы был создан массив 4х
// Изменить цикл так, чтобы был заполнен массив 4х5 случаными образом числами в диапазоне [0,1
// Измените отводимое под запись элемента место на экране, отведя для этого 3 позици
// Измените условия так, чтобы было найдено количество 0 в массив
program zapoln_mas
var i,j,k: integer
mas:array [1..2,1..3] of integer
begi
// блок заполнения массив
for i:=1 to 2 d
begi
for j:=1 to 3 d
begi
mas[i,j]:=random(4)
write (mas[i,j]:4)
end
writeln()
end
// блок поиска элементов, удовлетворяющих услови
for i:=1 to 2 d
for j:=1 to 3 d
if mas [i,j]=3 then k:= k+1
writeln('Найдено элементов: ',k)
end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
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.