Работа с записями, паскаль

[Дядька]

НУЖНО РЕШИТЬ В ПАСКАЛЕ....... В городе N магазинов. О каждом магазине известен ежемесячный доход и расход магазина. Вывести номера магазинов, у которых расход превысил доход. ЗАРАНЕЕ БЛАГОДАРЕН

[Sazary]

Создаете, например, массив записей:

type magaz = record
number : integer;
dohod : longint;
rashod : longint;
end;
var mas : array[1..N] of magaz;

Или просто можно 3 массива..
Заполняете их. Потом запускаете цикл, вроде:

for i:=1 to N do
 begin
 if(mas[i].rashod-mas[i].dohod>0) then
  writeln(i,' : rashod= ',mas[i].rashod,'; dohod= ',mas[i].dohod);
 end;

И все..

Прочитайте правила.

[quf]

Тему назови нормалньно. Уточни - ввод из файла, с клавы или где?

[Дядька]

ВВОД С КЛАВЫ...

[Дядька]

ВОТ я так начал делать .... а дальше не сображу ....
uses crt;
const n=5;
var mag:array[1..n] of string;
doxod:array[1..n] of integer;

begin
clrscr;
mag[1]:='Луч';
mag[2]:='55';
mag[3]:='Заря';
mag[4]:='Гурман';
mag[5]:='Престиж';
writeln ('Вводите доход и расход')

[alex_fcsm]

Вам Sazary уже написал

const n=5;
type magaz = record
name : string[20];
dohod : longint;
rashod : longint;
end;
var mas : array[1..N] of magaz;

потом делайте

begin
for i:=1 to n do
 begin
  readln(mas[i].name);
  readln(mas[i].dohod);
  readln(mas[i].rashod);
end;

end.

Что здесь непонятного?