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

Задание 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.
б) Найти сумму всех элементов полученного массива.
в) Вывести на экран исходный и полученный массив.

2

Ответы и объяснения

2013-06-22T10:34:53+00:00

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.

  • Sky09
  • профессор
2013-06-22T10:41:11+00:00

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.