Найти отношение произведений отрицательных и положительных элементов массива

@laderic · Регистрация: 18.06.2014

Студворк — интернет-сервис помощи студентам

Ввести с клавиатуры целое число.
1) Если число равно 1, то в заданных массивах 10 P и 12 Q найти: - R1 - отношение произведений отрицательных и положительных элементов массива Р; - R2 - отношение произведений отрицательных и положительных элементов массива Q. Поиск R1 и R2 осуществить в подпрограмме.

2) Если число равно -1, то в заданной матрице B(5x5) найти min элемент в каждой строке и записать его на место первого элемента строки, а первый элемент на место min. Начальную и преобразованную матрицу выдать на экран.

3) Если число равно -2, то создать целочисленный файл. Вычислить сумму и количество элементов, значение которых больше чем 9,3 и среднее арифметическое элементов, значения которых меньше, чем –3,5.

Все нужно сделать с помощью процедур и функций, вот все что я сделал... кривовато..., нужен второй и третий пункт

Pascal

program laderic;
uses crt;
const
 n1=10;
 n2=12;
 n3=5;
type
 mass1=array[1..n1]of integer;
 mass2=array[1..n2]of integer;
 mass3=array[1..n3,1..n3]of integer;
var
P:mass1;
Q:mass2;
B:mass3;
R1,R2:real;
//------------
   procedure INIT1(var P1:mass1);
var
i:byte;
begin
for i:=1 to n1 do
P1[i]:=-5+random(10);
   end;
//------------
   procedure INIT2(var Q1:mass2);
var
i:byte;
begin
for i:=1 to n2 do
Q1[i]:=-5+random(10);
   end;
//------------
procedure INIT3(var B1:mass3);
var
i:byte;
j:byte;
begin
for i:=1 to n3 do
for j:=1 to n3 do
B1[i,j]:=random(10);
end;
//------------
   procedure PRINT1(P1:mass1);
var
i:byte;
begin
writeln('первый массив');
for i:=1 to n1 do
write(P1[i],' ');
writeln;
   end;
//------------
   procedure PRINT2(Q1:mass2);
var
i:byte;
begin
writeln('второй массив');
for i:=1 to n2 do
write(Q1[i],' ');
writeln;
   end;
//------------
     procedure PRINT3(B1:mass3);
var
i,j:byte;
begin
writeln('третий массив');
for i:=1 to n3 do begin
for j:=1 to n3 do
write(B1[i,j],' ');
writeln;
end;
end;
//------------конец формирования массива
   function OTN1(P1:mass1):real;
var
i:byte;
C1,C2:integer;
R:real;
begin
C1:=1;
C2:=1;
for i:=1 to n1 do
 if P1[i]>0then
 C1:=C1*P1[i];
 if P1[i]<0 then
 C2:=C2*P1[i];
R:=C1/C2;
OTN1:=R;
   end;
//------------
   function OTN2(Q1:mass2):real;
var
i:byte;
C1,C2:integer;
R:real;
begin
C1:=1;
C2:=1;
for i:=1 to n2 do
 if Q1[i]>0then
 C1:=C1*Q1[i];
 if Q1[i]<0 then
 C2:=C2*Q1[i];
R:=C1/C2;
OTN2:=R;
   end;
//------------
 
 
 function PEREST(B1:mass3):byte;
var
min:integer;
i,j:byte;
begin
min:=32768;
for j:=1 to n3 do
if B1[i,j]<min then
min:=B1[i,j];
B1[1,j]:=B1[i,j];
B1[i,j]:=min;
end;
 
 
 
 
 begin
 INIT1(P);
 INIT2(Q);
 INIT3(B);
 PRINT1(P);
 PRINT2(Q);
 PRINT3(B);
 R1:=OTN1(P);
 writeln(R1);
 R2:=OTN2(Q);
 write(R2);
 PEREST(B);
 PRINT3(B);
 end.

Опции темы