1. дан одномерный массив размерностью 10, заполненный целыми числами, введенными с клавиатуры, и величина n. отрицательные элементы заменить на n. измененный массив вывести на экран одной строкой. 2. дан одномерный массив размерностью n, заполненный случайными числами в интервале от -15 до 20. вывести на экран значения элементов массива, абсолютное значение которых > 10. 3. дан одномерный массив размерностью n, заполненный случайными числами. каждый третий элемент массива возвести в квадрат, если элемент отрицательный. измененный массив вывести на экран.

1)    var
 a:array[1..10]of integer;
 i,n,k:integer;
  begin
   readln(n);
    for i:=1 to 10 do
     begin
      read(a[i]);
      if a[i]< 0 then
      a[i]:=n;
     end;
     for i:=1 to 10 do
      write(a[i],' ');
     end.

2)

var
 a:array[1..999999]of integer;
 i,n,s:integer;
   begin
     readln(n);
     for i:=1 to n do
      begin
       a[i]:=random(36)-15;
       write(a[i],' ');
      end;
      writeln;
      for i:=1 to n do
       if abs(a[i])>10 then
       write(a[i],' ');
     end.

3)

     var
 a:array[1..999999]of integer;
 i,n,s:integer;
   begin
     readln(n);
     for i:=1 to n do
      begin
       a[i]:=random(36)-15;
       write(a[i],' ');
      end;
      writeln;
      for i:=1 to n do
       begin
        if i mod 3 = 0 then
         if a[i]<0 then
         a[i]:= a[i]*a[i]*a[i];
        write(a[i],' ');
        end;
      end.

var  x, n: integer;  n1: real; begin  Writeln('Введите число: ');  Read(x);  if (x > 9) and (x < 100) then  begin    n := (x div 10) + (x mod 10);    Writeln('Сумма цифр равна: ', n);  end;  if (x > 99) and (x < 1000) then  begin    n := (x div 100) * ((x div 10) mod 10) * (x mod 10);    Writeln('Произведение цифр равно: ', n);  end;  if (x > 999) and (x < 10000) then  begin    n := x div 1000 + (x div 100) mod 10 + (x div 10) mod 10 + x mod 10;    n1 := n / 4;    Writeln('Среднее арифметическое равно: ', n1);  end;  if x > 9999 then  begin    Writeln('Введите 2-х, 3-х или 4-х значное число');  end; end.

Вариант решения №1:
1)8 МБайт = 8192 КБайт
2) 8192 Кбайт / 4096 Кбайт = 2 - это отношение первого файла,которое мы передавали к второму. Тем самым решение получается из этого таким образом:

Первый файл больше второго в 2 раза. При неизменяемой скорости, второй файл соответственно будет передан в 2 раза быстрее -> 128/2 = 64 сек.

Вариант решения №2:
1) 8 МБайт = 8192 КБайт
2) найдём скорость соединения:

8192 Кбайт / 128 сек = 64 Кб/сек.

3) узнаем время передачи второго файла

4096 Кбайт / 64 Кб/сек = 64 сек.

ОТВЕТ : 64 сек.

Отмечу,что при решении похожих задач некоторые при переводе скорости и других местах вместо 1024 считают как 1000. Из-а этого в решении могут появиться такие ответы (для данной задачи) как 65,536 сек.

Обращайте внимание на то,с какой буквы написана величина! КБ=КБайт = 1024 байт. Если первая заглавная,то считается 2 в степени, то есть как принято в информатике.
кБайт = 1000 байт. Если с маленькой,то приставка кило считается по системе СИ, как в физике и является 10^3.