Question

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

Answer 1

6
program Solution;var Arr: array [0..80] of Integer;    i, countChetn, countNeChetn, num : Integer;begini := 0;countChetn := 0;countNeChetn := 0;while(true) do  begin  num := random(20, 100);  Arr[i] := num;  if(i mod 2 = 0) then countChetn := countChetn + 1     else countNeChetn := countNeChetn + 1;  if(i = 80) then  break;  i := i+1;  end;writeln(countChetn);writeln(countNeChetn);end.

Answer 2

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