Question

Напишите, пожалуйста,программы с массивами. Очень нужно. Буду благодарен(1 и 6 задачи)

Answer 1

1.
var
a:array [1..10] of integer;
d,i:integer;
begin
write('Первый элемент: ');
readln (a[1]);
write('Разность: ');
readln (d);
for i:= 2 to 10 do
a[i]:= a[i-1]+d;
writeln(a)
end.

Пример:
Первый элемент: 1
Разность: 2
[1,3,5,7,9,11,13,15,17,19]

Арифмети́ческая прогрессия - последовательность чисел (членов прогрессии), каждое из которых, начиная со второго, получается из предыдущего добавлением к нему постоянного числа d≠0 (шага или разности прогрессии). 

6.
var
a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.

Пример:
[33,68,77,90,79,50,60,62,60,86]
Чётных элементов: 7
Нечётных элементов: 3