Дан одномерный массив из n частей в промежутке [0,50] отыскать количество
Дан одномерный массив из n элементов в интервале [0,50] отыскать количество частей попадающих в интервал [0,25] и количество элементов попадающих в интервал[40,50] (через процедуру)
Задать свой вопросprogram zz1;
const n = 10; // задаем количество частей в массиве
var i, a, b, c:integer; // задаем переменные целого типа
m:array [1..n] of integer;
procedure kk(a1,b1:integer;var c1:integer);
var j:integer;
begin
c1:=0;
for j:=1 to n do
if (m[j]gt;=a1) and (m[j]lt;=b1) then c1:=c1+1;
end;
begin
for i:=1 to n do // получаем n чисел случайных и записываем их в массив
m[i]:=random(51);
for i:=1 to n do // выводим полученный массив на экран
write(m[i], );
writeln; // переходим на новую строчку для вывода ответа
a:=0;b:=25;
kk(a,b,c);
writeln( количество частей попадающих в интервал [0,25] = ,c);
a:=40;b:=50;
kk(a,b,c);
writeln( количество элементов попадающих в интервал [40,50] = ,c);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.
Разные вопросы.
Математика.