Дан массив натуральных чисел найти количество элементов кратных данному k ! !

никак45 никак45    1   20.05.2019 23:20    0

Ответы
Леееера1 Леееера1  01.10.2020 01:27

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика