Введите целочисленный массив, состоящий из n элементов. Замените элементы, кратные 5, на минимальное количество. Напишите функцию для решения этой проблемы. void min_replace (int a [], int n)
ВХОД:
8
5 3 5 25 8 10 2 100
ВЫХОД:
2 3 2 2 8 2 2 2
Дана целочисленная матрица размера M × N. Найдите номер первого из ее столбцов, содержащих равное количество положительных и
отрицательные элементы (нулевые элементы матрицы следует игнорировать).
Если таких столбцов нет, выведите 0. Напишите функцию для решения этой проблемы.
void max_each_column (int a [20] [20], int n, int m)
3 3
1 2 -3
4 0 3
7-8 0
Выход:
1​

Program n1;
const n=10;
var a: array[1..n] of integer;
n3,n2,min,max,i,imin,imax,t: integer;
begin
randomize;
writeln('введите диапазон (a;b) :');
write('a=');
readln(n3);
write('b=');
readln(n2);
write('сгенерированный массив: ');
for i:=1 to n do
begin
a[i]:=random(n2-n3+1)+n3;
write(a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to n do if a[i]<min then min:=a[i];
for i:=1 to n do if a[i]=min then begin
imin:=i;
break;
end;
max:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];
for i:=1 to n do if a[i]=max then begin
imax:=i;
break;
end;
t:=a[imax];
a[imax]:=a[imin];
a[imin]:=t;
write('полученный массив: ');
for i:=1 to n do write(a[i],' ');
end.

Задание №1
60 Мбайт * 8 = 480 Мбит - размер файла в мегабитах
480 Мбит * 1024 = 491520 Кбит - размер файла в килобитах
491520 / 2 = 245760 Кбит - половина файла
245760 Кбит / 256 = 960 секунд - время передачи первой половины файла
245760 Кбит / (256 / 2) = 245760 Кбит / 128 = 1920 секунд - время передачи втораой половины файла
960 с + 1920 с = 2880 секунд - общее время передачи
В одной минуте 60 секунд:
2880 / 60 = 48 минут - передан весь файл

Задание №2
Переведем килобайты в биты: N = 3750кбайт = 30720000бит
Вычислим скорость передачи информации: V = 30720000/120
V = 256000 бит/c