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

Заданий двовимірний масив A[n][m] цілих чисел. Складіть програму підрахунку кількості елементів,  значення яких співпадають з сумою їх індексів. 
Язык-Pascal. Помогите пожалуйста!

  1. Ответ
    Ответ дан TlknAnastasiya
    const n=10; m=12;
    var b:array[1..n,1..m] of integer;
    i,j,k:integer;
    begin
    k:=0;
    for i:=1 to n do
    for j:=1 to n do b[i,j]:=random(30)-10;
    for i:=1 to n do begin
    for j:=1 to n do write(b[i,j]:5);
    writeln;
    end;
    for i:=1 to n do
    for j:=1 to n do
    if b[i,j]=i+j then k:=k+1;
    write ('количество искомых элементов ',k);
    writeln;
    end.
Самые новые вопросы