Получается так: Мы вводим в качестве переменной любое число (в том числе и предложенные). Стоит оператор real/, значит, может уволить не только натуральные, но и отрицательные и дробные числа. Программа выведет на экран отрицательные и дробные числа.
Для решения всех задач используется формула S = v*t, где S - объем файла, v - скорость передачи файла, t - время передачи. 1. 4 Мбайта = 4*1024 Кбайт = 4096 Кбайт S1 = v*t1, S2 = v*t2 S2 = (S1/t1)*t2 = (4096/100)*75 = 3072 Кбайт
Const n=10; var a,b:array [1..n] of integer; i,min1,min2,k:integer; begin randomize; For i:=1 to n do begin a[i]:=random(10); b[i]:=random(10); end; writeln (a); writeln (b); writeln; min1:=1000; min2:=1000; For i:=1 to n do begin if a[i]<min1 then min1:=a[i]; if b[i]<min2 then begin min2:=b[i]; k:=i end; end; if k<n then begin b[k+1]:=min1; writeln (a); writeln (b); end else writeln ('Минимальным является последний элемент'); end.
Мы вводим в качестве переменной любое число (в том числе и предложенные). Стоит оператор real/, значит, может уволить не только натуральные, но и отрицательные и дробные числа. Программа выведет на экран отрицательные и дробные числа.