Дан массив натуральных чисел найти количество элементов кратных данному k СРОЧНО! ПОЖАЛУЙСТА ПОМОГИТЕ!
Дан массив натуральных чисел найти количество элементов кратных данному k СРОЧНО! ПОЖАЛУЙСТА ПОМОГИТЕ!
Гость
Ответ(ы) на вопрос:
ГостьБыол бы неплохо указывать среду прoграммирования.
Paskal. program massiv;
uses crt;
var A:array [1..200] of integer; n, i, k, s: integer;
begin;
clrscr;
writeln ('введите количество элементов в массиве');
readln(n);
randomize;
writeln ('задан массив');
for i:=1 to n do
begin
a[i]:=-10+random(21);
write (a[i], ' ');
end;
writeln;
writeln ('введите число'); {кратное которому необходимо найти}
readln (k);
for i:=1 to n do if (a[]i]<>0) and (a[i] mod k = 0) then s:=s+1; write ('количество элементов кратных введенному числу - ', s); readkey
end.
Не нашли ответ?
Похожие вопросы