Одномерный массив

[Вадим Мошев]

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

> (шёпотом: но получить денег за решение я бы конечно не отказался)

А почему шепотом ?)
Ты стыдишься того что любой труд должен быть оплачен ?)
Стыдиться надо оказывать медвежьи услуги, какую в дан.случае оказал DM_bite (С)

Прежде, чем отвечу на этот вопрос, скажу, что каждый человек индивидуален, и то, что одному кажется нормальным, другому может казаться не нормальным (в нормальном смысле слова).

Знаешь, мне почему-то кажется, что потребовать деньги за решение задачи "как-то не очень". Нет, я не альтруист, если человек предложит мне деньги за решение задачи, от них я не откажусь... Возможно, я не требую деньги может из-за того, что я мало нахожусь на этом форме и меня пока ещё не успели заколебать "халявные темы" (ну, типа решите задачу).

Это моё мнение, я не хочу никого обижать. Соглашаюсь с тем, что себя эксплуатировать давать тоже не надо.

Что касается медвежьих услуг... мне почмеу-то казалось, что я наоборот "поднимаю" себя в глазах других, когда решаю кому-то задачу...

[Александр16]

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

Так сразу и никто?

Program Program1;

var f,H: array [1..8] of integer;
    d: array [1..10] of integer;
    i: integer;
    sum: integer;
    Hmin, MinIndex: integer;
    
BEGIN
  sum:=0;
  Hmin:=0;
  MinIndex:=1;
  for i:= 1 to 8 do
   Read(f[i]);
  for i:= 1 to 10 do
  begin
   Read(d[i]);
   if i>=5 then sum:=sum+d[i];
  end;
   ReadLn;
  for i:= 1 to 8 do
  H[i]:=f[i]*sum;
  Hmin:=H[1];
  for i:= 2 to 8 do
  if Hmin>H[i] then
  begin
  Hmin:=H[i];
  MinIndex:=i;
  end;
  H[MinIndex]:=d[1];
  for i:= 1 to 8 do
   Write(H[i],' ');
   WriteLn;
END.

Спасибо большое!!!

[polyg2]

Кто может помоч с такой задачкой?
"Даны натуральное число m, целые числа А1, А2,....,Аm. Найти максимальный элемент заданной последовательности. Получить новую последовательность В1,В2,...,Вn, выбросив из исходной последовательности все члены со значением равным максимальному."