Модуль CRT

[Sikey]

Мне нудна программа,нашёл Ваш сайт,смотрю помощь студентам...
Помогите сделать,мне сёня сдавать а я не сделал((
Вот задача!
Вариант 11:
В таблице указано: Марка автомашины,её заводской номер и фамилия владельца.Вывести список тех владельцев автомашин,которых имеют одинаковые марки.

[psycho-coder]

Модуль CRT

А при чем тут CRT?

Делаешь массив записей (record)
и с ней работаешь.

[Sikey]

я не знаю как(((...
Мне просто сдавать сёня,можешь помочь?сделать?

[Stilet]

Ну вот тебе легкий набросочек

 r=record
  marka,num,fio:integer;
 end;
 var a:array[1..10] of r;
 q,w:byte;
begin
 for q:=1 to length(a)-1 do begin
  a[q].marka:=random(3);
  a[q].num:=random(30000);
  a[q].fio:=q;
  writeln(a[q].marka:5,a[q].num:10,a[q].fio:5);
 end;
 writeln;
 for q:=1 to length(a)-1 do begin
  for w:=q+1 to length(a)-1 do begin
    if a[q].marka=a[w-1].marka then
      write(a[w-1].fio:5);
  end;
  writeln;
 end;

  { TODO -oUser -cConsole Main : Insert code here }
  readln;
end.

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

[Sikey]

cпс тебе большое,я просто в колледже небыл на практике,болел,просто не знаю как сделать,пожайлуста набросай всю прогу,вот мой маил dc_sikey@mail.ru напиши,я отблагодарю.!!

помоги,я заплачу!...сделай,помоги(

[Stilet]

напиши,я отблагодарю

Я не делаю программы за деньги.
Я перенесу эту тему в раздел фриланс, где возможно откликнется разработчик, готовый сделать все на твоих условиях за деньги.

[ОДИНОЧЕСТВО В СЕТИ]

>>>помоги,я заплачу!
Стучи в аську! напишу!

[freest]

308 895 214 обращяйся

[QuadroX]

Сделаю за 100 рублей. ICQ: 323787261.

P.S. Название порадовало. :D

[sheka]

Если актуально - 255507394