Помогите решить две паскальные задачки пожалуйста

DragonIce · 16.10.2011, 19:42

10. Найти наибольшее и наименьшее значения и их индексы в массиве D(n), n≤25. Вычислить их среднее значение и произведение элементов, значения которых превышают среднее значение. Вывести массив, наименьшее, наибольшее значения и их индексы и произведение.

10. Изменяя X от заданного начального значения с заданным шагом H вычислить и поместить в массив F 20 значений разности функции (e^-x) sin(6x) и её значением в точке первого локального минимума.

Буду очень признателен!

DragonIce · 16.10.2011, 19:57

Вот, наброски.. Они ужасны, правда.

Цитата:

program Bliiin;

{$APPTYPE CONSOLE}

uses
SysUtils,
Math;

var
a:array[1..25] of integer;
i,max,min,Imin,Imax:integer;
srar:real;

begin
Randomize;
for i:=1 to 25 do
a[i]:=Random(100)-15;
max:=a[i];
min:=a[i];
writeln ('massiv:');
for i:=1 to 25 do
write(a[i]:4);
writeln;
for i:=1 to 25 do
begin
if a[i]>max then
begin
Imax:= a[i]; max:=i;
end;
writeln('Max:=',max,'nomer:',Imax);
writeln('Min:=',min,'nomer:',Imin);
for i:= 1 to 25 do
begin
end;
for i:=1 to a do
begin
if a[i]>max then
begin
max:=a[i];
imax:=i;
end;
if a[i]<min then
begin
min:=a[i];
Imin:=i;
end;
writeln('Max:=',max,'nomer:',Imax);
writeln('Min:=',min,'nomer:',Imin);

srar:=(a[i])/2;
if min>srar then min:=srar;
if max<srar then max:=srar;
writeln ('sr znach',i,srar:8:2);
end.

16.10.2011, 19:42	#1 (permalink)
DragonIce Новичок Регистрация: 16.10.2011 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите решить две паскальные задачки пожалуйста 10. Найти наибольшее и наименьшее значения и их индексы в массиве D(n), n≤25. Вычислить их среднее значение и произведение элементов, значения которых превышают среднее значение. Вывести массив, наименьшее, наибольшее значения и их индексы и произведение. 10. Изменяя X от заданного начального значения с заданным шагом H вычислить и поместить в массив F 20 значений разности функции (e^-x) sin(6x) и её значением в точке первого локального минимума. Буду очень признателен!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070