Напишите пожалуйста простенькую задачу по информатике, geany (pascal). Задача заключается вот в чем- Найдите полупроизведение всех элементов массива (желательно максимально просто, что бы мог понять чайник)
uses crt;
const M=5;
var I,J:integer;
A:array [1..M,1..M] of Integer;
P:longint;
begin
clrscr;
randomize;
for I:=1 to M do
for J:=1 to M do
A[I,J]:=Random(100)-50;
for I:=1 to M do
begin
for J:=1 to M do
write(A[I,J]:4);
writeln;
end;
P:=1;
for I:=1 to M do
for J:=1 to M do
if A[I,J]<0 then
P:= P*A[I,J]/2;
writen('Полупроизведение отрицательных элементов: ', P);
End.
⇢