Решить на паскале задано два массива a (8) и b (8), которые упорядкованi по убыванию. определить кiлькicть элементов, что в двух массивах и их значения. вывести выходные массивы, элементы, и их количество.

program cyberforum;

var

a,b: array[1..20] of integer;

i: integer;

begin

randomize;

write('массив a: ');

for i: =1 to 20 do begin

  a[i]: =random(5)+1;

  write(a[i],'   ');

  end;

  writeln;

write('массив b: ');

for i: =1 to 20 do begin

  b[i]: =random(5)+1;

  write(b[i],'   ');

  end;

  writeln;

for i: =1 to 20 do begin

  if a[i]=b[i] then

  writeln(i,' элемент, значение: ',a[i]);

  end;

  end.

Модель "Движение автобусов по маршруту №13"

Цель моделирования: составить оптимальный график интервалов движения автобусов по данному маршруту.

Задача: составить информационную модель для расчета интервалов движения автобуса по маршруту №13.

Тип: табличная информационная модель.

Модель:

Количество перевезенных пассажиров

1 час 2 час 3 час 4 час 5 час 6 час

Автобус 1 15 58 120 55 20 6

Автобус 2 4 65 140 70 21 3

Автобус 3 24 73 200 45 19 11

Автобус 4 12 80 170 60 39 8

Автобус 5 13 67 210 71 24 5

Сумма (чел) 68 343 840 301 123 33

Анализ модели:

1) наибольшее количество человек автобусы перевезли в 3 час работы. автобусы скорей всего были переполнены. Следовательно, в данное время необходимы дополнительные рейсы, возможно использовать большие по размеру автобусы.

2) В 1, 5 и 6 час работы пассажиров было наооборот недостаточно. Следовательно, в данное время нужно пустить автобусы небольшие (маленькой вместимости) для того, чтобы снизить расходы за счет меньшего потребления горючего маленьким автобусом.