Регистрация
жони12
25.08.2022 11:01
Информатика
Есть ответ 👍

написать код программы к условию задачи Информатика 7класс

241
309
Посмотреть ответы 1

Ответы на вопрос:

ynavuhlitska
ynavuhlitska
4,4(55 оценок)

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.

Популярно: Информатика