Определить, есть ли пассажир, багаж которого состоит с одной вещи, вес которой не больше 10 кг - Turbo Pascal

Формулировка задачи:

Помогите написать пожалуйста, я вообще не шарю как ее написать Группа пассажиров (6 тел) ( багаж каждого пассажира характеризуется количеством вещей и общим весом вещей) Определить , есть ли пассажир, багаж которого состоит с одной вещи, вес которой не больше 10 кг

Код к задаче: «Определить, есть ли пассажир, багаж которого состоит с одной вещи, вес которой не больше 10 кг - Turbo Pascal»

textual
Uses crt;
type pass=record
n:byte;m:byte
end;
var
a:array[1..6] of pass;
i,k:byte;
begin
for i:=1 to 6 do
  begin
  Clrscr;
  Writeln('Сколько вещей у ',i,' пассажира');
  ReadLn(a[i].n);
  WriteLn('Вес вещей у ',i,' пассажира');
  ReadLn(a[i].m);
  if(a[i].n=1) and (a[i].m<=10) then k:=1;
  end;
  clrScr;
if k=1 then writeLn('Есть пассажир с 1 вещью которая весит меньше 10кг ')
else WriteLn('Таких пассажиров нету');
Read;
end.

15   голосов, оценка 4.400 из 5


СОХРАНИТЬ ССЫЛКУ