Вопрос по информатике:
Дан одномерный массив из 15 элементов, заполняется случайным образом вывести все элементы меньше некоторого a
Язык Паскаль желательно побыстрее
- 04.09.2018 03:41
- Информатика
- remove_red_eye 12939
- thumb_up 7
Ответы и объяснения 1
Var i, a: integer;
x: array[1..15] of integer;
begin
write('Введите a: '); readln(a);
write('Массив: ');
for i := 1 to 15 do begin
x[i] := random(20);
write(x[i], ' ');
end;
write(#10, 'Элементы < a: ');
for i := 1 to 15 do if(x[i] < a) then write(x[i], ' ');
end.
- 05.09.2018 06:08
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.