Найти количество положительных элементов массива, кратных К - Pascal ABC
Формулировка задачи:
Помогите с задачей . Вот условие
Дан массив целых чисел, состоящий из 11 элементов. Заполнить его с клавиатуры. Найти количество положительных элементов, кратных К (К вводится с клавиатуры).
Решение задачи: «Найти количество положительных элементов массива, кратных К»
textual
Листинг программы
const n=11;
var a:array[1..n] of integer;
i,k,q:integer;
begin
writeln('Введите ',n,' элементов массива, целые числа');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln('Полученный массив');
for i:=1 to n do
write(a[i],' ');
writeln;
write('Введите число К для проверки кратности k=');
readln(k);
q:=0;
for i:=1 to n do
if (a[i]>0)and(a[i] mod k=0) then q:=q+1;
write('Количество положительных, кратных ',k,'=',q)
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д