Вопрос по информатике:
Составьте программу вычисление тех значений элементов массива которые меньше 16
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.05.2016 17:53
- Информатика
- remove_red_eye 11450
- thumb_up 7
Ответы и объяснения 2
var a: array[1..m] of integer;
i,n: integer;
begin
write('количество элементов массива: ');
readln(n);
randomize;
write('массив: ');
for i:=1 to n do
begin
a[i]:=random(40);
write(a[i],' ');
end;
writeln;
write('элементы, меньшие 16: ');
for i:=1 to n do if a[i]<16 then
write(a[i],' ');
end.
количество элементов массива: 15
массив: 6 22 28 39 24 3 19 15 35 22 2 2 22 1 32
элементы, меньшие 16: 6 3 15 2 2 1
- 26.05.2016 15:47
- thumb_up 20
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(31);
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]<16 then k:=k+1;
writeln('Количество элементов массива < 16 = ',k);
end.
Пример:
Массив A:
17 28 18 19 12 9 24 6 18 12
Количество элементов массива < 16 = 4
- 27.05.2016 09:53
- thumb_up 14
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.