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

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

Вариант 30. Помогите пожалуйста написать программу.

[mss]

150 вебмани-рублей.
Это цена вранья про "помогите", ибо ты ничерта сам не делал и даже не пытался.

[Alter]

Простенькая задача. Но, без наработок НИКТО не поможет. Разве что, если хорошее настроение, или задача интересная

[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.

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

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

150 вебмани-рублей.
Это цена вранья про "помогите", ибо ты ничерта сам не делал и даже не пытался.

Так почти все так делают. если бы кто-то что-то пытался сделать, так бы и написали, типа "пытался, но не получается".

А вообщем-то, все задачи, публикуемые аналогичным образом, довольно лёгкие. (шёпотом: но получить денег за решение я бы конечно не отказался)

[masterlomaster]

не туда написал(

[Alter]

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

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

Не абсолютно никто же. У меня же написано, что есть другие варианты. Ваш не исключение.

[mss]

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

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

[Grag]

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

оказывать медвежьи услуги, какую в дан.случае оказал DM_bite (С)

Просто факт самоутверждения.... ИМХО! Я тоже против халявы....

[DM_bite]

Просто факт самоутверждения....

Да нет, Pascal решил вспомнить.

Стыдиться надо оказывать медвежьи услуги, какую в дан.случае оказал DM_bite (С)

Мне так стыдно...