написать программу в Pascal

[Джейк Грин]

задача: Аграрное предприятие выращивало зерновые и бобовые культуры на протяжении 5 лет. Проанализировать годовые показатели за указанный период и определить какие культуры предпочтительнее.

помогите пожалуйста написать программу которая бы это делала

[Hacker19_90]

Вам под диктовку?
Наработки свои есть?

[Джейк Грин]

если честно - ничего в этом не понимаю поэтому ничего нету.....

[VIK_aka_TOR]

фриланс вам в помощь...
судя по всему критерием выбора идет урожайность... но и тут есть нюансы)...
так что ставим адачу более ясно... и готовим денежку...
или же пытаемся что то сделать сами...

[Arhangel7]

так что ставим адачу более ясно

да - да, яснее задание.

[Джейк Грин]

а яснее ни как - задачу в таком виде дали

[Hacker19_90]

а яснее ни как - задачу в таком виде дали

нда! Тогда так наверно

sum_zern := 0.0;
sum_bob := 0.0;
temp := 0.0;
for i := 1 to 5 do
begin
    Writeln ('Сколько уродилось зерновых за ', i, ' год?');
    Readln (temp);
    sum_zern := sum_zern + temp;
    Writeln ('Сколько уродилось бобовых за ', i, ' год?');
    Readln (temp);
    sum_bob := sum_bob + temp;
end;
sum_zern := sum_zern/5;
sum_bob := sum_bob/5;
if sum_zern > sum_bob then writeln ('Выращиваем зерновые');
if sum_zern = sum_bob then writeln ('Выращиваем без разницы что!!');
if sum_zern < sum_bob then writeln ('Выращиваем бобовые');

:D

[Джейк Грин]

Спасибо Вам огромное за помощь!!!

[Hacker19_90]

О как! Да пожалуйста!