Pascal.составьте программу для нахождения суммы отрицательных четных элементов двумерного массива
Pascal.составьте программу для нахождения суммы отрицательных четных элементов двумерного массива
Гость
Ответ(ы) на вопрос:
Гостьprogram aliona;
const n =10;
var a:array[1..n,1..n] of integer;
i,j,s:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=random(30);
write ( 'а(', i, ',', j, ')=', a[i,j]);
end ;
s:=0;
for i:=1 to n do begin
for j:=1 to n do begin
if a[i] (mod 2 =0) and (a[i]<0) then s:=s+a[i];
writeln('s=',s);
readln;
end.
Не нашли ответ?
Похожие вопросы