Вопрос по информатике:
Срочно нужна программа в Паскале!: Задать с клавиатуры массив, состоящий из 10 целых чисел и просчитать кол-во элементов >k (k ввести с клавиатуры). На экран вывести массив в строчку через пробел и кол-во искомых элементов.
- 18.10.2017 16:02
- Информатика
- remove_red_eye 1252
- thumb_up 18
Ответы и объяснения 1
Var
ar:array[1..10] of integer;
k,i,n:integer;
begin
readln(k);
for i:=1 to 10 do
begin;
readln(ar[i]);
if ar[i]>k then n:=n+1;
end;
writeln('Array:');
for i:=1 to 10 do write(ar[i]:4);
writeln;
write('Res:',n);
end.
- 19.10.2017 23:09
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.