Помогите, пожалуйста, с Паскалем.
6.) Дана последовательность чисел а1, а2, ..., ан. Указать наименьшую длину числовой оси, содержащую все эти числа.
9.) Дан массив действительных чисел, размерность которого Н. Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов.
16.) В одномерном массиве размещены: в первых элементах значение аргумента, в следующих - соответствующие им значения функции. Напечатать элементы этого массива в виде двух параллельных столбцов (аргументы и значения функции).
19.) Дан целочисленный массив с количеством элементов н. Напечатать те его элементы, индексы которых являются степенями двойки (1,2,4,8,16...).
6.) Дана последовательность чисел а1, а2, ..., ан. Указать наименьшую длину числовой оси, содержащую все эти числа.
9.) Дан массив действительных чисел, размерность которого Н. Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов.
16.) В одномерном массиве размещены: в первых элементах значение аргумента, в следующих - соответствующие им значения функции. Напечатать элементы этого массива в виде двух параллельных столбцов (аргументы и значения функции).
19.) Дан целочисленный массив с количеством элементов н. Напечатать те его элементы, индексы которых являются степенями двойки (1,2,4,8,16...).
More Questions From This User See All
Answers & Comments
Verified answer
6)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.
Пример:
Исходный массив:
10 8 8 6 4 16 18 10 11 13
L = 14
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.
Пример:
Исходный массив:
-1.03 2.79-3.60 0.33-3.69-4.69-2.34-4.19 1.20 1.74
Положительных: 4, отрицательных: 6 нулевых: 0
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.
Пример:
1.0 0.84
2.0 0.91
3.0 0.14
4.0 -0.76
5.0 -0.96
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.
Пример:
Исходный массив:
8 38 22 45 36 23 21 13 5 13
Выбранные элементы:
8 38 45 13