Написать подпрограмму нахождения элементов двумерного массива целых чисел размера 6х4 в промежутке -10;9 , вычислить произведение этих элементов, в качестве входного параметра подпрограммы должен быть двумерный массив, а выходным параметром - произведение заданных элементов. Составить программу, которая определяет и заполняет три различных массива случайными числами, вызывает данную подпрограмму для этих массивов и находит максимальное число таких элементов. Подпрограмма кроме выше сказанного должна выводить на экран линейный массив, найденные элементы, их сумму и количество
Я в общем, пытался написать программу. Дошел до "Составить программу, которая..." и перестал понимать, что хочет задание.
var A:array [1..6,1..4] of integer;
i,j:integer;
x,y,z:A;
p,k:real;
procedure WTF (e:A; var k,p:real);
begin
p:=0;
k:=0;
for i:=1 to 6 do begin
for j:=1 to 4 do begin
A[i,j]:=random(102)-21;
write(a[i,j]:3);
if ((a[i,j]>=-10) and (a[i,j]<=9)) the begin
p:=p*A[i,j];
k:=k+1;
end;
end;
writeln
end;
writeln ('Произведение заданных чисел',p);
writeln ('Количестве элементов в промежутке от -10 до 9',k);
begin
Помогите решить.
| Модератор: Для оформления кода надо использовать тэг SRC |