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

Дана целочисленная прямоугольная матрица 6*8. Вычислить количество нулевых ячеек матрицы.

  1. Ответ
    Ответ дан WinSagit

    program massiv;
    var i,j,kol:longint;
    a:array[1..6,1..8]of longint;
    begin
    for i:=1 to 6 do
    for j:=1 to 8 do
    read(a[i,j]);
    for i:=1 to 6 do
    for j:=1 to 8 do
    if a[i,j]=0 then kol:=kol+1;
    writeln(kol);
    end.



Самые новые вопросы