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

     

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

Ответы 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.

    • Автор:

      presley16
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years