Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 198407
27.04.2020, 13:54
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте! У меня возникли сложности с таким вопросом:
Составить программу, которая формирует массив из 10 элементов с помощью случайных чисел (диапазон значений от -10 до 10), подсчитывает количество элементов, имеющих значения больше заданного числа R (R вводится с клавиатуры) и выводит индексы этих элементов.
Pascal

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
28.04.2020, 13:13
общий
это ответ
Здравствуйте, Ericsson!

Смотрите приложение:
[code lang=pascal]const
n=10;
var
a:array[1..n]of integer;
b,c,r:integer;
begin
for b:=1 to n do
begin
a[b]:=random(2*n+1)-n;
write(a[b]:3)
end;
writeln;
repeat
write('emter R:=');
readln(r);
until(-n <r)and(r<n);
c:=0;
write('index:');
for b:=1 to n do
if a[b]>r then
begin
inc(c);
write(b:3);
end;
writeln;
writeln('result:=',c);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа