profile
Размещено 5 лет назад по предмету Информатика от DexelGamer

Pascal ABC
В двумерном числовом массиве разномерности N*N посчитать количество единиц в квадрате со стороной длины K с правым нижним углом в строке R и столбце C

Пример ввода:
5 2 4 2
2 1 1 1 1
1 0 1 1 0
1 0 0 0 3
7 0 0 0 1
1 1 4 1 1

Пример вывода:
4

  1. Ответ на вопрос
    Ответ на вопрос дан 140201
    program aaa;
    var A: array[1..100,1..100] of integer; n,k,r,c,x: integer; i,j: byte;
    begin 
     randomize;
     writeln ('Введите N, K, R, C');
     readln (n,k,c,r);
     x:=0;
     for i:=1 to n do begin
        for j:=1 to n do begin
            writeln ('Введите ',j,'-е число ',i,'-ой строки');
            readln (A[i,j]);
            //или можно ввести рандомно: A[i,j]:=random(0,1);
            if ((i>(r-k)) and (i<=r) and (j>(c-k)) and (j<=c) and (A[i,j]=1))
                then x:=x+1
        end
      end;
    writeln;
    // в следующем цикле выводится весь массив для наглядности
    // его можно просто убрать если не нужен
          for i:=1 to n do begin
              for j:=1 to n do begin
                  write (A[i,j]:3);
              end;
              writeln
          end;  
      writeln;
      writeln (x)
    end.    

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.