Написать программу на языке паскаль уровень c. заполнить массив случайными числами в интервале [-100,100] и переставить элементы так, чтобы все положительные элементы стояли в начала массива, а все отрицательные и нули – в конце. вычислите количество положительных элементов. пример: массив: 20 -90 15 -34 10 0 результат: 20 15 10 -90 -34 0 количество положительных элементов: 3

// pascalabc.net 3.0, сборка 1160 от 05.02.2016 begin   var n: =readinteger('n=');   var a: =arrrandom(n,-100,100); a.println;   a: =a.where(x-> x> 0).concat(a.where(x-> x< =;   a.println;   writeln('количество положительных элементов: ',       a.where(x-> x> 0).count) end. тестовое решение: n= 15 -29 56 -40 -23 -26 -5 -69 37 -35 74 72 -63 -69 1 -93 56 37 74 72 1 -29 -40 -23 -26 -5 -69 -35 -63 -69 -93 количество положительных элементов: 5

зависит от скорости чтения ученика 

пусть будет 160 с/м

время прочтения 30 мин

 

1. 160*30 = 4 800 1 символ = 1 байт, следовательно ученик получит 4 800 байт информации или 4,6875 кб 2. объем дискеты 3.5" = 1457664 байт, 1/2 дискеты = 728832 байт из п.1 определим скорость: 160 байт в минуту (т.к. 160 символов в минуту по условию). т.о. имеем: при скорость 160 байт в минуту объём данных в 728832 байт будет считан за: 728832/160 = 4555,2 минуты или 75 часов 55 минут и 12 секунд. 

var n: integer;

procedure down(var n: integer); var a: array[1..20] of integer; i, j, s, p: integer; begin i : = 0; while n > 0 do begin i : = i + 1; a[i] : = n mod 10; n : = n div 10; end; p : = i; for i : = 1 to p - 1 do for j : = i + 1 to p do if a[i] < a[j] then begin s : = a[i]; a[i] : = a[j]; a[j] : = s; end; j : = 1; for i : = p downto 1 do begin s : = s + a[i] * j; j : = j * 10; end; n : = s; end;

begin readln(n); down(n); writeln(n); end.