Введите с клавиатуры два числа a и b . если оба числа четные , то вычислите их сумки выведите результат на экран .если оба нечетные то найдите произведение этих чисел и выведите результат . иначе, увеличить все числа в пять раз и выведите результаты

Uses crt;   var a, b, s, m, new, new1: integer; begin write('a = '); read(a); write('b = '); read(b); s: =a+b; m: =a*b; new: =5*a; new1: =5*b; if ((a mod 2)< > 0) and ((b mod 2)< > 0) then write('m = ',m)    else if ((a mod 2)=0) and ((b mod 2)=0) then   write('s = ',s);       if ((a mod 2)=0) and ((b mod 2)< > 0) then write('new = ',new);       if ((a mod 2)< > 0) and ((b mod 2)=0) then write('new1 = ',new1); end.описание: s=сумма чисел. m=произведение чисел. new=увеличение числа в 5 раз,если 1-ое число четное. new1=увеличение числа в 5 раз,если 2-ое число четное.

если массив состоит из 10 элементов то код программы:

 

const

  n=10;  

var

  a: array[1..n] of integer;

  i,min: integer;  

begin

for i: =1 to n do  read(a[i]);     {вводишь заданный массив}

min: =32767;

for i: =1 to n do

  if a[i]< min then min: =a[i];

write(min);

end;  

для начала переведем кбайты в биты:

2500кбайт=2500*1024*8=20480000бит,

затем найдем искомое   время: t=объём файла/скорость передачи,

t=20480000/1024000=20 секунд