даны n элементов массива определить количество элементов значение которых кратно первому элементы массива. Составить в паскаль
Ответы
Ответ дал:
0
var
a: array of integer;
i, n, k: integer;
begin
randomize;
k := 0;
write('Введите n = ');
readln(n);
SetLength(a, n);
writeln(' *** Сгенерированный массив *** ');
for i := 0 to Length(a) - 1 do
begin
a[i] := random(20) + 1;
write(' ', a[i]);
end;
for i := 1 to Length(a) - 1 do
if (a[i] mod a[0]) = 0 then Inc(k);
writeln(#13 + 'Кол-во элементов кратных "', a[0], '" = ', k);
end.
Приложения:
![](https://st.uroker.com/files/254/254dfaf16d8b220edd00148f81c8b319.png)
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад