Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Turbo Pascal] Построение 2х новых массивов


Автор: Hellride 12.12.2009, 13:59
Задание 6
Дан массив C1,…,C22
Сформировать два массива
A – из положительных Ci ,
B – из отрицательных Ci
и найти отношение произведения элементов массива  В к произведению элементов массива А.

Автор: M9C1K 12.12.2009, 17:35
Код

program zad6;
uses crt;
type massiv=array[1..22] of integer;
var
c:massiv;
a:massiv;
b:massiv;
i,kol,k:integer;
pr1,pr2:longint;
otn:real;
begin
 clrscr;
 randomize;
 writeln('исходный массив');
  pr1:=1;
  pr2:=1;
 for i:=1 to 22 do
 begin
  c[i]:=random(11)-5;
  write(c[i],' ');
  if c[i]<0 then
  begin
   b[i]:=c[i];   pr1:=pr1*b[i];
  end;
  if c[i]>0 then
  begin
   a[i]:=c[i];  pr2:=pr2*a[i];
  end;
 end;
 writeln;
 write('произведение отрицательных = ',pr1);
 writeln;
 write('произведение положительных = ',pr2);
 otn:=pr1/pr2;
 writeln;
 textcolor(10);
 writeln('отношение произведений    = ',otn:6:8);
 readln;
end.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)