Написать программку в Паскале.Ввести матрицу. Отыскать сумму s1 положительных элементов и

Написать программку в Паскале.

Ввести матрицу. Отыскать сумму s1 положительных элементов и сумму s2 отрицательных элементов над и под главной диагональю. Если s1gt;s2, то 1-ую и последнюю строки поменять на s1, иначе 1-ый и заключительный столбец на s2. Вывести матрицу на печать.

Задать свой вопрос
1 ответ
Const 
    n = 3;
    k = 3;
var
  i,j,s1,s2:integer;
  a:array[1..n,1..k] of integer;
begin
  s1:=0;
  s2:=0;
for i:=1 to n do
    for j:=1 to k do
    begin
     Writeln('Введите a[',i,',',j,']:');
     readln(a[i,j]);
     if (a[i,j]gt;0) and (ilt;gt;j) then s1:=s1+a[i,j];
     if (a[i,j]lt;0) and (ilt;gt;j) then s2:=s2+a[i,j];
    end;
  if s1gt;s2 then
   for j:=1 to k do
    begin
      a[1,j]:=s1;
      a[n,j]:=s1;
    end;
  if s2gt;=s1 then
    for i:=1 to n do
    begin
     a[i,1]:=s2;
     a[i,k]:=s2;
    end;
 writeln('Приобретенный массив:');
  for i:=1 to n do
   begin
     for j:=1 to k do
   write('a[':4,i,',',j,']=',a[i,j]);
   writeln;
   end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт