Найти фамилии владельцев и номера автомобилей данной марки

@Vitalij1234 · Регистрация: 28.12.2014

Студворк — интернет-сервис помощи студентам

Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Найти фамилии владельцев и номера автомобилей данной марки.

{Не получается правильно составить алгоритм. Прошу помочь}

@Puporev · 25.02.2015, 17:31

Объявляете тип

Pascal

1
2
3

type auto=record
               mar,nom,fam:string
               end;

объявляете массив записей

Pascal

1	var m:array[1..20] of auto;

заносите записи в массив, присваивая значения полей
вводите марку для поиска

Pascal

readln(mark);
k:=0;
for i:=1 to n do
if m[i].mar=mark then
 begin
  writeln(m[i].fam,' ',m[i].nom);
  k:=1
 end;
if k=0 then write('Нет автомобилей данной марки');

@Vitalij1234 · 25.02.2015, 18:21 **[ТС]**

Большое Спасибо, уже не в первый раз Вы меня выручаете !)

@Vitalij1234 0 / 0 / 0 Регистрация: 28.12.2014 Сообщений: 26
		1
	Найти фамилии владельцев и номера автомобилей данной марки 25.02.2015, 17:01. Показов 1840. Ответов 2 Метки нет (Все метки) Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Найти фамилии владельцев и номера автомобилей данной марки. {Не получается правильно составить алгоритм. Прошу помочь} 0

@Vitalij1234 0 / 0 / 0 Регистрация: 28.12.2014 Сообщений: 26
	25.02.2015, 18:21 [ТС]	3
	Большое Спасибо, уже не в первый раз Вы меня выручаете !) 0

Опции темы

Найти фамилии владельцев и номера автомобилей данной марки

Решение