Question

1.В двумерном массиве действительных чисел найти произведение отрицательных элементов больших -14;
2.Заменить к-й элемент одномерного массива на произведение всех его элементов кратных 5

Answer 1

1.

program raf105;

var a:array[1..3,1..3] of integer;

i,j,x:integer;

begin

writeln('Введите 9 чисел по очереди');

x:= 1;

for i:=1 to 3 do

 for j:=1 to 3 do

 begin

   readln(a[i,j]);

   if (a[i,j] < 0) and (a[i,j] > -14)

     then x *= a[i,j];

end;

writeln('Вывод: ',x);

end.

2.

program raf105;

var a:array[1..10] of integer;

n,i,x:integer;

begin

writeln('Вводите 10 чисел по очереди: ');

x:= 1;

for i:=1 to 10 do

begin

 readln(a[i]);

 if ((a[i] mod 5) = 0) and (a[i] <> 0)

   then x *= a[i];

end;

writeln('Введите число от 1 до 10');

readln(n);

a[n] := x;

writeln(n,'-й элемент массива заменён на число ',x);

for i:=1 to 10 do

 writeln(a[i]);

end.

Язык PascalABC