ПАСКАЛЬ АБС! ПРОШУ! ПОМОГИТЕ! СРОЧНО! ОЧЕ НУЖНО! найдите массу почтового груза пассажирского самолета. Фамилии пассажиров и масса
10-11 класс
|
багажа храняться в двух одномерных массивах. Определите фамилии и кол-во пассажиров которые не имеют багажа.
Пусть 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.
Другие вопросы из категории
1) Token Ring
2) Ethernet
3) 100VG-AnyLAN
4) FDDI
Читайте также
На языке програмирования! Паскаль АВС........
Плиз помогите , срочно нужно
Текст вводить с помошью readln. Он может содержать и буквы.
Одной программой
Ввести последовательно возраст Антона,Бориса и Виктора. Определить,кто из них старше. Пример:
Возраст Антона: 15
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Борис старше всех.
Пример:
Возраст Антона: 17
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Антон и Борис старше Виктора.
Заранее спасибо большое)
1)с помощью генератора случайных чисел создать Н числа в диапазоне с [-50;50](длину массива Н надо ввести с клавиатуры)
2)надо вывести сделанный массив на экран
3)нужно вычислить и вывести,какое количество парных чисел
4)и вывести на экран все парные числа.
Очень вас прошу помогите,очень нужно до завтра сделать.Если можете помочь мне,пожалуйста помогите.