Найдите в массиве целых чисел c (n), сформированном случайным образом, количество чисел, меньших заданного числа В( задаётся с клавиатуры)
Найдите в массиве целых чисел c (n), сформированном случайным образом, количество чисел, меньших заданного числа В( задаётся с клавиатуры)
Гость
Ответ(ы) на вопрос:
Гостьvar
i,n,b:integer;
a:array[1..20]of integer;
begin
for i:=1 to 20 do
begin
a[i]:=random(20);
write(a[i],' ');
end;
writeln;
write('Введите b: ');
readln(b);
for i:=1 to 20 do
if a[i]
ГостьProgram n1;
Uses Crt;
Var
c: array[1..10] of integer;
i, b, k:integer;Begin
for i:=1 to 10 do begin
c[i]:=random(40) - 20;
write(c[i]:4);
end;
writeln();
writeln('Enter B = '); Readln(b);
k:=0;
for i:=1 to 10 do if (c[i]
Не нашли ответ?
Похожие вопросы