Вопрос по информатике:
Сформировать массив из 15 случайных чисел, принадлежащих промежутку [-30, 30]. Найдите и выведите на экран номера, значения и количество элементов, по модулю не превышающих 5. Если таких элементов нет, то вывести соответствующее сообщение.
- 20.02.2018 18:21
- Информатика
- remove_red_eye 20052
- thumb_up 34
Ответы и объяснения 1
var
b,a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
k, i: integer;
begin
k:=0;
N := 20;
writeln ('chisla');
for i:=1 to N do begin
a[i] := Random(60)-30;
write (a[i],' ');
end;
writeln;
writeln ('---------------------------------------------');
for i:=1 to n do begin
if ((a[i]0)) then
begin
k:=k+1;
write (i,' ');
end;
end;
if (k=0) then
write('no');
end.
- 21.02.2018 10:00
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.