profile
Опубликовано 5 лет назад по предмету Информатика от Аккаунт удален

В квадратной матрице найти количество элементов равных "0"

  1. Ответ
    Ответ дан dishkina
    var
      a: array [1..N,1..N] of real;
      i: integer;
      j: integer;
      kol: real;

    begin
    // ввести значения массива a вашим любимым способом
    for i:=1 to N do
     for j:=1 to N do
      if a[i,j]=0 then
       kol=kol+1;
    write('Количество нулей: ', kol);
    end.