Задать массив A(N), N=K+M.

[dodomenos]

Задать массив A(N), N=K+M.
Элементы массива с индексом от 0 до K – члены натурального
ряда кратные 2,остальные – кратные 5.
Найти сумму и произведение элементов массива и частное
от деления суммы на произведение.



Функцией не владею,и байтами тоже.
Пожалуйста накидайте исходник.

[JinglsOrg]

Т.е. вам надо сделать массив длинной вводимой пользователем и заполняемый числами: 2,4,6,8...до яйчейки "K", а оставшиеся яйчейки 5,10,15,20..до конца или продолжать от предыдущих яйчеек т.е. например 2,4,6,8,10,12,14,16,18,20,22,25,30, 35,40 ?
И зачем вам функции/байты?

[dodomenos]

Сообщение от JinglsOrg

Т.е. вам надо сделать массив длинной вводимой пользователем и заполняемый числами: 2,4,6,8...до яйчейки "K", а оставшиеся яйчейки 5,10,15,20..до конца или продолжать от предыдущих яйчеек т.е. например 2,4,6,8,10,12,14,16,18,20,22,25,30, 35,40 ?
И зачем вам функции/байты?

По поводу функции/байтов я написал,потому что иногда предлогают решения через них,а я их незнаю

Условие такое ,что я и сам не понимаю как сделать эту задачу
но думаю что вы правы...если разовьете дальше идею, буду благодарен

[JinglsOrg]

Я не знаю как задавать размерность массива пользователем), поэтому следующий код будет использовать массив определённой длины равной "F", т.е. N не может быть больше чем F т.к. будет выход за пределы массива.

program suspense;
const
 F=100;
var
 a:array[0..F] of integer;
 N,K,M,i:integer;
begin
 write('Введите размерность массива для заполнения его членами натурального ряда кратным двум: ');
 readln(K);
 write('Введите размерность дополнительных клеток массива для  заполнения его членами натурального ряда кратным пяти: ');
 readln(M);
 N:=K+M;
 for i:=0 to N do if i<=K then a[i]:=i*2 else a[i]:=i*5;
 for i:=0 to N do write(a[i],' ');
end.

если же члены кратные пяти, вдруг, должны тоже начинаться с нуля то надо заменить строчку следующией:

 for i:=0 to N do if i<K then a[i]:=i*2 else a[i]:=(i-K)*5;

+)