Определите число пассажиров, имеющих более двух вещей

@foor · Регистрация: 29.02.2016

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

Помогите, пожалуйста!
Сведения о багаже каждого из пятнадцати пассажиров представляют собой запись с 3-мя полями: одно поле целого типа- кол-во вещей, второе поле действительного типа – общий вес багажа в кг третье поле строкового типа – фамилия пассажира. Определите:
а) число пассажиров, имеющих более 2-хвещей
б) имеется ли пассажир, багаж которого состоит из одной вещи весом менее 30 кг(выведите фамилию пассажира).

@Peoples · 29.02.2016, 18:40

Pascal

program pr;
const 
n=15;
type
bags=record 
count:integer;
weight:double;
surname:string[50];
end;
var
i,kol:integer;
peoples:array [1..n] of bags;
begin
for i:=1 to n do
begin
writeln('Введите количество вещей пассажира');
readln(peoples[i].count);
writeln('Введите вес багажа пассажира');
readln(peoples[i].weight);
writeln('Введите фамилию пассажира');
readln(peoples[i].surname);
end;
kol:=0;
for i:=1 to n do
begin
if (peoples[i].count>2)then
kol:=kol+1;
end;
writeln('Количество пассажиров, имеющих в багаже более 2-х предметов: ',kol);
for i:=1 to n do 
begin
if ((peoples[i].count=1) and (peoples[i].weight<30))then
writeln('Фамилия пассажира имеющего в багаже 1 вещь,весом менее 30 кг: ',peoples[i].surname);
end;
end.

@foor · 29.02.2016, 18:49 **[ТС]**

спасибо)

@foor 0 / 0 / 0 Регистрация: 29.02.2016 Сообщений: 2
		1
	Определите число пассажиров, имеющих более двух вещей 29.02.2016, 17:50. Показов 1482. Ответов 2 Метки нет (Все метки) Помогите, пожалуйста! Сведения о багаже каждого из пятнадцати пассажиров представляют собой запись с 3-мя полями: одно поле целого типа- кол-во вещей, второе поле действительного типа – общий вес багажа в кг третье поле строкового типа – фамилия пассажира. Определите: а) число пассажиров, имеющих более 2-хвещей б) имеется ли пассажир, багаж которого состоит из одной вещи весом менее 30 кг(выведите фамилию пассажира). 0

@foor 0 / 0 / 0 Регистрация: 29.02.2016 Сообщений: 2
	29.02.2016, 18:49 [ТС]	3
	спасибо) 0

Определите число пассажиров, имеющих более двух вещей

Решение