Массивы.

[hexorq]

Массивы.

Здравствуйте, очень прошу помочь мне с решением данной задачи!!!
Заранее бесконечно благодарен!!!

Даны массивы:
H1,...,H5 - шифры автопредприятий;
F1,...,F5 - фамилии директоров;
P1,...,P5 - объем перевозок, т;
G1,...,G5 - общая грузоподьемность, автотонна
Отпечатать список предприятий с указанием фамилий директоров, у которых объем перевозок на одну автотонну составляет от 1500 до 2000т. Определить средний объем перевозок по всем пяти предприятиям.

Очень надеюсь на вашу помощь!!!:tehnari_ru_837::tehnari_ru_837:

 

[AlexZir]

Под списком предприятий следует рассматривать их шифры?
Алгоритм решения может быть следующим:
1) определяем и заполняем массивы
2) в цикле вычисляем для каждого предприятия отношение объема перевозок к числу автотонн, проверяем значение на попадание в диапазон и выводим в виде списка
3) вычисляем в цикле сумму объемов перевозок и делим ее на 5
)

 

[shrek=)]

При решении задачи, я обозначил массивы через константу.

uses crt;
const
h:array [1..5] of string=('001a','002b','003c','004d','005f');
f:array [1..5] of string=('Иванов','Петров','Сидоров','Макаров','Синичкин');
p:array [1..5] of real=(2012,1213,1624,1546,2890);
g:array [1..5] of real=(313,331,332,354,346);
var
i:integer;
s:real;
procedure sr_v;
begin
s:=0;
for i:=1 to 5 do
s:=s+p[i];
writeln ('Средний объем перевозок ',s/5);
end;
begin
clrscr;
for i:=1 to 5 do begin
if (p[i]<2000) and (p[i]>1500) then
write (h[i],'  ',f[i],'  ',g[i],'  ',p[i]);
end;
sr_v;
readln
end.

 

[AlexZir]

Михаил, при решении необходимо было делить объем поставки на число автотонн, то есть решить пропорцию с 1 неизвестным, так можно вычислить объем на 1 автотонну, а потом уже вычисленное значение анализировать.