1)дана последовательность чисел. 0-остановка последовательности. найти количество четных и положительных чисел. 2) тоже самое, только найти % чисел, кратных трем (решить через циклы repeat untill)

const g = 5; v = 3;

var a: array[1..g,1..v] of integer;

i,j,maxj,minj,p: integer;

begin

writeln('массив: ');

for i: =1 to g do

begin

for j: =1 to v do

begin

a[i,j]: =random(101);

write(a[i,j]: 4)

end;

writeln

end;

for i: =1 to g do

begin

maxj: =1;

minj: =1;

for j: =1 to v do

begin

if a[i,j]> a[i,maxj] then maxj: =j;

if a[i,j]< a[i,minj]then minj: =j;

end;

p: =a[i,maxj];

a[i,maxj]: =a[i,minj];

a[i,minj]: =p;

end;

writeln;

writeln('преобразованный массив: ');

for i: =1 to g do

begin

for j: =1 to v do write(a[i,j]: 4);

writeln

end;

end.

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

переведём объём информации в мб в биты: q = 10 мб = 10 * 220 байт = 10 * 223 бит.

время задержки:   = 1024 кб / 219 бит/с = 2(10 + 10 + 3) - 19 c = 24 c.

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

полное время:   = 10 * 28 c + 24 c = (256 * 10 + 16) c = 2576 c.

ответ: 2576.