Помогите написать программу в паскале. За ранее спасибо. Задача на двумерный массив. Задание 1.Заполнить двухмерный массив ABCD [1..5,1..5] константа

1 Январь 0001



Помогите написать программу в паскале. За ранее спасибо. Задача на двумерный массив.

 

 

Задание 1.
Заполнить двухмерный массив ABCD [1..5,1..5] константами:

1        4          7        -10                        13
7        10       13        15                          19
13      -16    19         22                        25
19      22     25       -28                         31
25      28     31        34                           37

 

а) Удвоить все элементы массива, которые > 3.
б) Найти сумму всех элементов полученного массива.
в) Вывести на экран исходный и полученный массив.

  • const

      mas:array [1..5,1..5] of integer = ((1,4,7,-10,13),

                                                                 (7,10,13,15,19),

                                                                 (13,-16,19,22,25),

                                                                 (19,22,25,-28,31),

                                                                 (25,28,31,34,37));

    var

      a:array [1..5,1..5] of integer;

      i,j,sum:integer;

    begin

      for i:=1 to 5 do begin

        for j:=1 to 5 do write (mas[i,j]:4);

        writeln;

      end;

      a:=mas;

      writeln; 

      for i:=1 to 5 do begin

        for j:=1 to 5 do begin

         if a[i,j]>3 then a[i,j]:=a[i,j]*2;

         sum:=sum+a[i,j];

         write (a[i,j]:4);

       end;

       writeln;

      end;

      writeln (‘Summa: ‘,sum);

      readln;

      end.

  • uses crt;
    const
      a:array [1..5,1..5] of real=
    ((1,4,7,-10,13),
    (7,10,13,15,19),
    (13,-16,19,22,25),
    (19,22,25,-28,31),
    (25,28,31,34,37));
    var
      b:array [1..5,1..5] of real;
      i,j:integer; s:real;
    begin
      s:=0;
      for i:=1 to 5 do
        for j:=1 to 5 do
        begin
          b[i,j]:=a[i,j];
          if a[i,j]>3 then b[i,j]:=2*a[i,j];
          s:=s+b[i,j];
        end;
      for i:=1 to 5 do
      begin
        for j:=1 to 5 do
          write(a[i,j],’ ‘);
          writeln;
      end;
      writeln;
      for i:=1 to 5 do
      begin
        for j:=1 to 5 do
          write(b[i,j],’ ‘);
          writeln;
      end;
      writeln;
      write(‘Сумма=’,s);
    end.







Информатика

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