Водномерном массиве а(10) найти максимальный элемент, вывести его значение и индекс. заменить все элементы большие 1, но меньшие 4 значением максимального элемента. полученный массив вывести на экран.

Const n = 10; var i, max: integer; a: array[1..n] of integer; begin     max : = 1;     writeln('массив до: ');     for i : = 1 to n do begin         a[i] : = random(10);         write(a[i]: 3);         if(a[i] > a[max]) then max : = i;     end;     writeln(#10, 'массив после: ');     for i : = 1 to n do begin         if(a[i] > 1) and (a[i] < 4) then a[i] : = a[max];         write(a[i]: 3);     end;     writeln(#10, 'максиммальный элемент: ', a[max], #10, 'его индекс: ', max);     end.

1) пусть время, за которое файл размером 10 мбайт со скоростью 2  621  440 бит/c, равно x. следовательно, имеем уравнение: 10 мбайт / x = 2  621  440 бит/c 10 * 1024 * 1024 * 8 бит / x = 2  621  440 бит/c 83 886  080 бит / x = 2  621  440 бит/c x =   83 886  080 бит / 2  621  440 бит/c = 32 c ответ: за 32 секунды.   2) пусть наибольший размер файла, который может быть передан через соединение со скоростью 256  000 бит/с за 10 минут, равен x. следовательно, имеем уравнение: x / 10 мин = 256  000 бит/c x / 10 * 60 с = 256  000 бит/с x / 600 c = 256 000 бит/с x = 256  000 бит/с * 600 с = 153600000 бит = 19200000 байт = 18750 кбайт ответ: наибольший размер файла – 18750 кбайт   3) в 2 байтах может уместится 65  536 разных значений, а именно столько разных цветов мы имеем. значит, для хранения каждого пикселя нам надо 2 байта.   1024x800 = 1024*800 = 819  200 пикселей, а соответственно 2 * 819  200 = 1  638  400 байт. пусть время, за которое файл размером 1  638  400 байт со скоростью 102 400 бит/c, равно x. следовательно, имеем уравнение: 1  638  400 байт / x = 102  400 бит/c 1  638  400 * 8 бит / x = 102  400 бит/c 13107200 бит / x = 102  400 бит/с x = 13107200 бит / 102  400 бит/с = 128 c ответ: 128 секунд.

Var a : array[1..100] of integer; j, i, n, k, out_num, is_out : integer; begin   read(n); {всего людей}   read(out_num); {номер выходящего, в   = 3}   for i : = 1 to n do       a[i] : = 1;   i : = -1;   repeat       i: = (i + 1) mod n;       k : = k + a[i+1];       if k = out_num then begin           a[i+1] : = 0;           is_out : = is_out + 1;           k : = 0;                     writeln;           for j : = 1 to n do write(a[j]: 2);       end;   until n - is_out < = 1;     writeln;   for i : = 1 to n do       if a[i] > 0 then writeln(i); end.