Заполнить массив случайными числами из интервала (1-100) и найти в массиве

Заполнить массив случайными числами из интервала (1-100) и найти в массиве P[1..20]кол-во однозначных чисел

Задать свой вопрос
1 ответ
Var p:array [1..20] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 20 do begin
p[i]:=random(100)+1; write(p[i],' '); end;
writeln;
k:=0;
for i:=1 to 20 do
if p[i] div 10=0 then k:=k+1;
writeln('Количество однозначных чисел в массиве = ', k);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт