Динамический массив

@elionora · Регистрация: 29.04.2010

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

Даны действительные числа а1,..аn
Получим:min(a1*a16,a2*a17,..,a15*an)
заранее большое спасибо=))))

@Puporev · 30.04.2010, 06:50

числа а1,..аn

Судя по примеру n=30, или это не обязательно?

Добавлено через 13 минут

Pascal

uses crt;
Type
  TTmas=array[1..1] of real;
  Tmas=^TTmas;
const n=30;
var
  a:Tmas;
  i,i1,i2,k:integer;
  mn:real;
begin
clrscr;
randomize;
GetMem(a,SizeOf(TTmas)*n);
writeln('Массив:');
for i:=1 to n do
 begin
   a^[i]:=10*random;
   write(a^[i]:0:1,' ');
  end;
writeln;
writeln;
k:=n div 2;
mn:=a^[1]*a^[k+1];
i1:=1;i2:=k+1;
for i:=1 to k do
if a^[i]*a^[k+i]<mn then
  begin
   mn:=a^[i]*a^[k+i];
   i1:=i;
   i2:=k+i;
  end;
write('Минимальное произведение имеют элементы a[',i1,'] и a[',i2,']=',mn:0:1);
FreeMem(a,SizeOf(TTmas)*n);
readln
end.

@elionora · 30.04.2010, 14:37 **[ТС]**

а не мог бы ты это написать на С++=)))
и там как цикл,
А[I]
A(km/2+i)

и спасибо за паскаль,оч помог=)

@Puporev · 30.04.2010, 14:39

Сообщение от elionora

а не мог бы ты это написать на С++=)))

Так и обращайтесь в раздел
https://www.cyberforum.ru/cpp-beginners/

@elionora 0 / 0 / 0 Регистрация: 29.04.2010 Сообщений: 9
		1
	Динамический массив 30.04.2010, 01:25. Показов 2084. Ответов 3 Метки нет (Все метки) Даны действительные числа а1,..аn Получим:min(a1a16,a2a17,..,a15*an) заранее большое спасибо=)))) 0

@elionora 0 / 0 / 0 Регистрация: 29.04.2010 Сообщений: 9
	30.04.2010, 14:37 [ТС]	3
	а не мог бы ты это написать на С++=))) и там как цикл, А[I] A(km/2+i) и спасибо за паскаль,оч помог=) 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	30.04.2010, 14:39	4
	Сообщение от elionora а не мог бы ты это написать на С++=))) Так и обращайтесь в раздел https://www.cyberforum.ru/cpp-beginners/ 0