семиклассник Иван пришел из школы домой и решил скачать сети интернет 2 обучающие программы он посмотрел размеры программы первая была объёмом 100 КБ А 2 100 ГБ Иван решил сначала скачать первую программу а затем же сразу же вторую программу в процессе скачивания Когда уже скачалась первая программа и половина 2 программы произошёл сбой и пришлось вторую программу скачивать сначала сколько секунд потратил Иван на то чтобы скачать копию программы если скорость приема данных на его компьютере было 2930 бит в секунду а сбой не отнял ни одной лишней секунды
N = 3;
M = 4;
Var
A:array[1..N,1..M] of integer;
i,j,iMin,jMin:integer;
Begin
Randomize;
iMin:=1;
jMin:=1;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=random(76)-30;
if A[i,j] < A[iMin,jMin] then
Begin
iMin:=i;
jMin:=j
End;
Write(A[i,j]:3,' ')
End;
WriteLn;
End;
WriteLn('Min = A[',iMin,',',jMin,'] = ',A[iMin,jMin]);
End.
Исходный массив:
-11 -3 -16 44
-1 -10 38 -20
33 -22 17 10
Min = A[3,2] = -22