Определить количество элементов последовательности натуральных чисел в одномерной матрице

@тимофей тим · Регистрация: 10.02.2013

Студворк — интернет-сервис помощи студентам

Определить количество элементов последовательности натуральных чисел в одномерной матрице, кратных M и заключенных в промежутке от L до N

@ZLO1988 · 19.02.2013, 21:09

Pascal

uses crt;
var
mas: array [1..10] of integer;
i,l,n,m,kol: byte;
begin
writeln('Матрица:');
for i:=1 to 10 do
begin
mas[i]:=random(50);
write(mas[i],' ');
end;
writeln();
write('Введите число M:');
readln(m);
write('Введите начало отрезка L:');
readln(l);
write('Введите конец отрезка N:');
readln(n);
kol:=0;
for i:=l to n do
if (mas[i] mod m = 0) then
begin
inc(kol);
end;
writeln('Количество элементов = ',kol);
end.

@тимофей тим 0 / 0 / 0 Регистрация: 10.02.2013 Сообщений: 25
		1
	Определить количество элементов последовательности натуральных чисел в одномерной матрице 19.02.2013, 20:42. Показов 1023. Ответов 1 Метки нет (Все метки) Определить количество элементов последовательности натуральных чисел в одномерной матрице, кратных M и заключенных в промежутке от L до N 0

	19.02.2013, 21:09

Опции темы

Определить количество элементов последовательности натуральных чисел в одномерной матрице

Решение