Составьте блок схему: Два шестых класса школы соревновались в беге на 300 метров. Напишите алгоритм, который представит (проведет симуляцию) результаты достижений учащихся (результат в секундах) — целые случайные числа от 11 до 59. Результаты будут храниться в массивах A и B размером N каждый: массив A для записи достижений первого(6-А) класса и массив B для достижений второго(6-Б) класса.
Алгоритм должен вычислить и вывести:
a. Достижения учеников первого(6-А) класса (массив А).
b. Достижения учеников второго(6-Б) класса (массив B).
c. Средние достижения учеников первого(6-А) класса.
d. У скольких учеников из второго(6-Б) класса было низкое достижение или равное средним достижениям учеников из первого класса(6-А)

var

 i, n:integer;

 price:real;

begin

  n := 20;

  price := 20.4;

  for i := 1 to n do

    writeln('Стоимость ', i:3, ' ед. товара составляет ', price * i:8:2, ' руб.');

end.

 

 

//вторая задача

var

  i, f, n:integer;

begin

  f := 453;

  n := 10;

  writeln('фунты    граммы');

  for i := 1 to n do

    writeln(' ', i:2, i * f :11);

end.

 

//третья задача

var

  i, n:integer;

  k:real;

begin

  n := 20;

  writeln('Введите курс '); readln(k);

  writeln('доллары    рубли');

  for i := 1 to n do

    writeln('  ', i:2, i * k:13:2);

end.

Потому что соединение не идеально, оно прерывается, некоторые данные по пути теряются. Допустим, я хочу передать файл по интернету. Если файл небольшой, то велика вероятность, что он не пострадает. В противном случае можно потратить много времени на передачу части файла, после чего данные передадутся с ошибкой, которую мы обнаружим только после передачи всего файла. Передавая информацию пакетами же можно этого избежать, так как любая потеря данных будет сразу видна по плохому пакету. После этого можно эту ошибку сразу и обработать и, допустим запросить повтор предыдущего пакета или попытаться починить пакет, прибывший с ошибкой.