Помогите, пожалуйста, с Паскалем. 6.) Дана последовательность чисел а1, а2, ..., ан. Указать наименьшую длину числовой оси, сод
Помогите, пожалуйста, с Паскалем.
6.) Дана последовательность чисел а1, а2, ..., ан. Указать наименьшую длину числовой оси, содержащую все эти числа. 9.) Дан массив действительных чисел, размерность которого Н. Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов. 16.) В одномерном массиве размещены: в первых элементах значение аргумента, в следующих - соответствующие им значения функции. Напечатать элементы этого массива в виде двух параллельных столбцов (аргументы и значения функции). 19.) Дан целочисленный массив с количеством элементов н. Напечатать те его элементы, индексы которых являются степенями двойки (1,2,4,8,16...).
6) <span>const n=10; var a: array[1..n] of integer; i,max,min : integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(21); write(a[i]:3); end; writeln; max:=a[1]; min:=a[1]; for i:=2 to n do begin if a[i] > max then max:=a[i]; if a[i] < min then min:=a[i]; end; writeln('L = ',max-min); end<span>.
9) const n=10; var a: array[1..n] of real; i,k1,k2 : integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=10*random-5; write(a[i]:5:2); end; writeln; k1:=0; k2:=0; for i:=1 to n do if a[i]>0 then k1:=k1+1 else if a[i]<0 then k2:=k2+1; writeln('Положительных: ',k1,', отрицательных: ',k2,' нулевых: ',n-k1-k2); end.
16) const n=10; var a: array[1..n] of real; i : integer; begin for i:=1 to n div 2 do begin a[i]:=i; a[n div 2+i]:=sin(a[i]); end; for i:=1 to n div 2 do writeln(a[i]:4:1,a[n div 2+i]:6:2); end.
</span><span>19) const n=10; var a: array[1..n] of integer; i: integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(51); write(a[i]:5); end; writeln; writeln('Выбранные элементы:'); i:=1; while i<=n do begin write(a[i],' '); i:=2*i; end; end.
begin var a:=ReadArrReal('Вводите:',ReadInteger('n=')); Writeln('Положительных: ',a.Where(t->t>0).Count); Writeln('Отрицательных: ',a.Where(t->t<0).Count); Writeln('Нулевых: ',a.Where(t->t=0).Count) end.
begin var a:=Arr(-3.7,-3.1,-2.3,-1.6,-0.9,-0.2,0.5,1.2,1.9,2.6,3.3,4.0,4.2,5.4, 1.92,1.76,1.52,1.26,0.95,0.45,0.71,1.10,1.38,1.61,1.82,2.00,2.05,2.32); var d:=a.Length div 2; for var i:=0 to d-1 do Writeln(a[i]:5:2,a[i+d]:20:3) end.
ПО это Программное Обеспечение. Его установка запрашивается при установке игры, потому что то ПО что с ней устанавливается является оптимальным для нее (по мнению разработчиков).