Приложение:
1) Один линейный массив записей. uses crt; const nmax=100;{максимальное количество фирм} type TFirma=record {тип запись с полями по условию} nam:string[20];{название} usf:word;{уставной фонд} end; var sp:array[1..nmax] of TFirma;{массив записей, список фирм с фондами} n,b1,b2,i:word;{количество, нижний и верхний размеры фондов, счетчик цикла} sum:longint;{сумма} k:byte;{фиксатор} begin clrscr; repeat write('Kolichestvo firm n='); readln(n); until (n>0)and(n<=nmax);{проверяем правильность ввода} repeat write('b1=');readln(b1); write('b2=');readln(b2); until (b1>0)and(b2>b1);{правильность ввода} writeln('Vvedite dannye o ',n,' firmah:'); for i:=1 to n do {наполняем список данными} begin writeln('Firma ',i); write('Nazvanie: ');readln(sp[i].nam); write('Ustavnoj fond: ');readln(sp[i].usf); end; clrscr; {очищаем экран} writeln('Spisok firm s ustavnym fondom >',b1,' i <',b2); sum:=0;k:=0; for i:=1 to n do if (sp[i].usf>b1)and(sp[i].usf<b2)then{если фонд попадает в диапазон} begin writeln(sp[i].nam,' ',sp[i].usf);{выводим} sum:=sum+sp[i].usf;{считаем сумму} k:=1;{фиксируем, что есть такие} end; write('Summa=',sum); if k=0 then write('Takih firm net!');{если нет} readln end. 2) два линейных массива: фирм и их фондов. uses crt; const nmax=100; var frm:array[1..nmax] of string[20];{массив названий фирм} fnd:array[1..nmax] of longint;{массив их уставных фондов} n,b1,b2,i:word; sum:longint; k:byte; begin {дальше все тоже, только 2 отдельных массива} clrscr; repeat write('Kolichestvo firm n='); readln(n); until (n>0)and(n<=nmax); repeat write('b1=');readln(b1); write('b2=');readln(b2); until (b1>0)and(b2>b1); writeln('Vvedite dannye o ',n,' firmah:'); for i:=1 to n do begin write('Firma ',i,': '); readln(frm[i]); write('Fond ',i,': ');readln(fnd[i]); end; clrscr; writeln('Spisok firm s ustavnym fondom >',b1,' i <',b2); sum:=0;k:=0; for i:=1 to n do if (fnd[i]>b1)and(fnd[i]<b2)then begin writeln(frm[i],' ',fnd[i]); sum:=sum+fnd[i]; k:=1; end; write('Summa=',sum); if k=0 then write('Takih firm net!'); readln end.