Составить графически Флоу-форму по задаче (Паскаль)
program z1;
var a:array [1..100,1..100] of integer;
b:array [1..100] of integer;
n,m,i,j,s:integer;
begin
write ('Введите количество строк (n<=100) ');
read (n);
write ('Введите количество столбцов (m<=100) ');
read (m);
writeln ('Массив А');
for i:= 1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=Random(19)-9;
write(a[i,j]:4)
end;
writeln
end;
for j:= 1 to m do
begin
s:=0;
for i:=1 to n do if (a[i,j]>0) and (a[i,j] mod 2 = 0) then s:=s+a[i,j];
b[j]:=s
end;
writeln ('Массив B');
for j:= 1 to m do write (b[j]:4)
end.

Ну как-то вот так
Для решения данной задачи необходимо учесть время которое потратит Толя для скачивания 512 Кбайт данных с интернета (T1) и время ретрансляции 5 Мбайт данных от Толи к Мише по низкоскоростному каналу (Т2). Все время затраченное на получение данных Мишей равно Т=Т1+Т2.Найдем Т1: 512 Кбайт = 512*1013 бит = 29*213 = 222 бит, Т1=222/219=23=8 секундНайдем Т2: 5 Мбайт = 5*223 бит, Т2=5*223/215 = 5 *28= 5 * 256 = 1280 секундНайдем все время затраченное на скачивание данных: Т = 1280 + 8 = 1288 секунд.ответ: 1288.

Нужно определить, сколько времени будет передаваться файл объемом 5 Мбайт по каналу со скоростью передачи данные 215 бит/с; к этому времени нужно добавить задержку файла у Толи (пока он не получит 512 Кбайт данных по каналу со скоростью 219 бит/с). 

Периведём объём информации в Мб в биты: Q = 5 Мб = 5 * 220 байт = 5 * 223 бит. 

Время задержки:  = 512 кб / 219 бит/с = 2(9 + 10 + 3) - 19 c = 23 c. 

Время скчивания данных Мишей:  = 5 * 223 бит / 215 бит/с = 5 * 28 c. 

Полное время:  = 5 * 28 c + 23 c = (256 * 5 + 8) c = 1288 c. 

ответ: 1288.