Developing.ru

Даны шифры предприятий, расчетный и реальный грузооборот в т/км . Вывести список предприятий не выполневших расчетный грузооборот . Указать средний грузооборот по всей группе предприятий.

углубитесь пожалуйста в предметную область

если расчётный грузооборот больше расчётного. значит пердприятие выполнело расчётнй грузооборот? я правельно понял?
приведите пример записи

вообще можно объявить массив запесей, или три массива...

в цикле проверять больше ли расчётный грузооборот реального, если условие не выполняется выводить название предприятия

а как среднее значение чего либо искать, думаю объяснять не стоит...
в общем приведите пример записи, напишу

Program V16_N7;
uses crt;
var
Sh :array[1..10]of string[18];
P,R :array[1..10]of real;
S :real;
i :integer;
F :text;
BEGIN
clrscr;
assign(F,'V16_N7.txt');
reset(F);
S:=0;
writeln('Предприятия не выполнившие план');
writeln('┌──────────────────┬──────────────────────┬──────────────────────┐');
writeln('│ Шифр предприятия │ Плановый грузооборот │ Реальный грузооборот │');
writeln('├──────────────────┼──────────────────────┼──────────────────────┤');
for i:=1 to 10 do begin
readln(F,Sh,P,R);
S:=S+R;
if R<P then
writeln('│',Sh,'│',P:22:3,'│',R:22:3,'│');
end;
writeln('└──────────────────┴──────────────────────┴──────────────────────┘');
S:=S/10;
writeln('Средний грузооборот: ',S:0:4);
while not keypressed do;
close(F);
END.

ТАК ,,,,,,,,,,,,,,,,,,,,,............