Регистрация
14062006123
31.05.2021 11:03
Информатика
Есть ответ 👍

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

288
314
Посмотреть ответы 2

Ответы на вопрос:

ната1142
ната1142
4,5(63 оценок)

пусть 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.

DARKxSHADOWxYT
DARKxSHADOWxYT
4,7(91 оценок)
Длина сообщения - 44 символов (пробелы и знаки препинания считаются) объем сообщения - 704 бита или 88 байт

Популярно: Информатика