дан массив натуральных чисел найти количество элементов кратных данному k СРОЧНО! ПОЖАЛУЙСТА ПОМОГИТЕ!

1

Ответы и объяснения

2013-05-07T12:33:47+04:00

Быол бы неплохо указывать среду пр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.