A=0
Г=1
И=2
К=3
Н=4
12736(10)=401421(5)=НАГНИГ
Var
arr : array [1..30] of integer;
i, number : integer;
begin
//Заполнение массива случайными числами
for i := 1 to 30 do
arr[i] := Random(10000) - 5000;
//---
//Считывание номера элемента и проверка на соответствие условию
write('Введите число: ');
readln(number);
if not (number in [1..30]) then
begin
write('Ошибка. Номер элемента выходит за границу массива');
Exit;
end;
//---
//Вывод массива с учётом условия
for i := 1 to 30 do
if arr[i] > arr[number] then
write(arr[i], ' ');
//---
end.
Целенаправленный процесс изменения содержания представления информации это-обработка
Файл размером 20 кбайт передается через некоторое соединение со скоростью 1024 бит в секунду то есть за 20 секунд. Значит со скоростью 2048 бит он передастся в 2 раза быстрее то есть время передачи 10 секунд