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

[Маргаритка]

Мне задали огромную контрольную решить, я все задания решила кроме двух. Их я незнаю как решить. Помогите пожалуйста.

***
В области 10 районов. Известны площади, засеваемые пшеницей, и средняя урожайность (ц/га) в каждом районе. Определить количество пшеницы, собранное по каждому району и в по области в целом.

***
Японская радиокомпания провела опрос 250 радиослушателей по вопросу : "Какое животное Вы связываете с Японией и японцами ?". Составить программу получения пяти наиболее часто встречающихся ответов и их долей (в%).


Заранее благодарю!!!

[arsen86]

я не специалист вообщето, но вот что у меня получилось по первой задачи

Код

uses crt;
var
  field,ur:array[1..10] of real;
  i:integer;
  all:real;
begin
    clrscr;
    randomize;       {если не хочется нибивать 20 чисел из клавы}
    for i:=1 to 10 do
    begin
         field[i]:=random(200);   { Заполняем массивы случайными числами}
         ur[i]:=random(50);
    end;
    all:=0;
    writeln('Номер поля    Размер поля   Средняя урожайность  Урожай ');
    for i:=1 to 10 do
    begin
         writeln('    ',i,'         ',field[i]:10:3,'        ',ur[i]:13:3,'   ',field[i]*ur[i]:8:3);
         all:=all+field[i]*ur[i];
    end;
    writeln('Общий урожай по области ',all:15:3);
    readln;
end.