Найдите сумму положительных элементов двумерного массива размера 20 на 25 и умножьте её на сумму отрицательных элементов.

@Elena* · Регистрация: 26.02.2012

Найдите сумму положительных элементов двумерного массива размера 20 на 25 и умножьте её на сумму отрицательных элементов. Массив вводится с клавиатуры.

Комментарий модератора

Создавайте темы с осмысленными и понятными названиями - это серьезно повышает шансы, что на ваш вопрос ответят.

@aleksskay · 27.02.2012, 00:17

Pascal

uses crt;
 const n=20;
const r=25;
 var
    a:array[1..n,1..r] of integer;
   p,i,j,s,t:integer;
   begin
 clrscr;
   for i:=1 to n do
   for J:=1 to  r do
 readln(a[i,j]);
  s:=0; r:=0;
    for i:=1 to n do   
   for  j:=1 to r do
         if a[i,j]>0 then
 s:=s+a[i,j]   else
  if  a[i,j]<0 then
  t:=t+a[i,j];
   p:=t*s;
writeln('proiz pol i otr elem',p);
  readln;
end.

@EvgenTarakanov · 27.02.2012, 00:22

Pascal

var 
A:array[1..20,1..25] of integer;
I,j:integer;
sum,sum1:LONGINT;
Begin
Sum:=0;
Sum1:=0;
For i:=1 to 20 do
For j:=1 to 25 do 
Begin
Writeln('vvedite a[',i,',',j,']:');
Readln(a[i,j]);
If a[i,j]>0 then sum:=sum+a[i,j]
Else sum1:=sum1+a[i,j];
End;
Writeln(sum*sum1);
Readln;
End.

Опции темы

Найдите сумму положительных элементов двумерного массива размера 20 на 25 и умножьте её на сумму отрицательных элементов.

Решение