Посчитать в одномерном массиве количество элементов кратных некоторому числу к - Pascal ABC
Формулировка задачи:
посчитать в одномерном массиве количество элементов кратных некоторому числу к
Сделать программу
Решение задачи: «Посчитать в одномерном массиве количество элементов кратных некоторому числу к»
textual
Листинг программы
program mask;
uses crt;
const n1=23;
n2=19;
n3=17;
n=25;
type mas=array[1..n] of integer;
var faf,f,k:integer; x1:mas; x2:mas; x3:mas; n4,i:integer;
procedure rand(var j:mas; n:integer);
var i:integer;
begin
for i:=1 to n do
begin
f:=0;
j[i]:=random(50)-5;
write(j[i],' ');
end;
writeln;
for i:=1 to n do
begin
if (j[i] mod k)=0 then f:=f+1;
end;
writeln('Kol-vo kratnix chisly ',k,'=',f);
for i:= 1 to n do
if (j[i] mod k)=0 then
writeln('Число кратне',k,'=',j[i]);
end;
begin
writeln('vvedi k');
readln(k);
clrscr;
writeln('Mасив T1:');
rand(x1,n1);
writeln;
writeln('Mасив T2:');
rand(x2,n2);
writeln;
writeln('Масив T3:');
rand(x3,n3);
readkey;
end.
Объяснение кода листинга программы
Список действий в коде:
- Ввод числа k.
- Создание трех массивов (x1, x2, x3) размером n1, n2, n3 соответственно.
- Заполнение массивов x1, x2, x3 случайными числами от 0 до 49.
- Вывод на экран содержимого массива x1.
- Вычисление количества элементов в массиве x1, кратных числу k.
- Вывод на экран информацию о количестве элементов в массиве x1, кратных числу k.
- Вывод на экран всех элементов массива x1, кратных числу k.
- Вывод на экран содержимого массива x2.
- Вычисление количества элементов в массиве x2, кратных числу k.
- Вывод на экран информации о количестве элементов в массиве x2, кратных числу k.
- Вывод на экран всех элементов массива x2, кратных числу k.
- Вывод на экран содержимого массива x3.
- Вычисление количества элементов в массиве x3, кратных числу k.
- Вывод на экран информации о количестве элементов в массиве x3, кратных числу k.
- Вывод на экран всех элементов массива x3, кратных числу k.
- Ввод числа k.
- Выполнение пунктов 4-15 для нового значения k.
- Завершение работы программы.