Program qq;
var i: integer;
m:array[1..10] of integer;
begin
for i:=1 to 10 do
read(m[i]);
for i:=4 to 8 do
write(m[i],' ');
end.
PascalABC.NET 3.3
1.
begin
var a:=ArrRandom(10,-20,20).Println;
writeln('количество положительных элементов = ',a.Where(x-x>0).Count);
writeln('количество отрицательных элементов = ',a.Where(x-x<0).Count);
end.
Пример:
7 6 -20 -12 -16 3 -4 -8 -4 1
количество положительных элементов = 4
количество отрицательных элементов = 6
2.
begin
var a:=ArrRandom(10,0,50).Println;
writeln('min+max = ',a.Min+a.Max);
end.
Пример:
18 5 45 43 50 37 32 17 31 24
min+max = 55
Тут закономерность такая: +2, + 4, +6, +8,...
13, 21, 31, 43, 57
1. Яркость;
2. Столбик;
Второе возможно ещё найду.