ПАСКАЛЬ АБС! ПРОШУ! ПОМОГИТЕ! СРОЧНО! ОЧЕ НУЖНО! найдите массу почтового груза...

Question

ПАСКАЛЬ АБС! ПРОШУ! ПОМОГИТЕ! СРОЧНО! ОЧЕ НУЖНО!

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

Answer 1

Пусть A(n) - фамилии, а B(n) - багаж
program samolet;

uses crt;

var a,b:array[1..n]of integer; i,n,k,s:integer;

begin

clrscr;

readln(n);

s:=0;

k:=0;

for i:=1 to n do s:=s+b[i];

for i:=1 to n do

if b[i]=0 then begin

writeln(a[i]);

k:=k+1;

end;

writeln('Кол-во пассажиров без багажа - ',k);

readln;

end.