Даны целые числа а1, а2, а3. Получить целочисленный массив В[1..3, 1..3], для которого B[i, j]=ai-3aj

1 Январь 0001



Даны целые числа а1, а2, а3. Получить целочисленный массив В[1..3, 1..3], для которого B[i,j]=ai-3aj.

  • const n=3;
    var i,j:integer;
    a:array[1..n] of integer;
    b:array[1..n,1..n] of integer;

    begin
    for i:=1 to n do
    readln(a[i]);
    for i:=1 to n do
    begin
    for j:=1 to n do
    begin
    b[i,j]:=a[i]-3*a[j];
    write(b[i,j]:4);
    end;
    writeln;
    end;

    end.



  • Program PainNagato;
    uses crt;
    const n=3;
    var i,j:integer;
      a:array[1..n] of integer;
      b:array[1..n,1..n] of integer;
    begin
      writeln(‘*** alphaues is thinking… ***’);
      writeln(‘***          OK             ***’);
      for i:=1 to n do
        begin
          write(‘Введите ‘,i,’-е число ‘);
          readln(a[i]);
        end;
      writeln(‘Результат: ‘);
      for i:=1 to n do
        begin
          for j:=1 to n do
            begin
              b[i,j]:=a[i]-3*a[j];
              write(b[i,j]:5);
            end;
          writeln;
        end;
    end.









Информатика

Комментарии закрыты.