Написать программу, которая подсчитает в массиве количество элементов меньших чем 14. (Элементов массива:7. Массив вводится с клавиатуры)
5-9 класс
|
const n=7;
Var a:array[1..n] of integer;
i,k:integer;
Begin
Writeln('Введите элементы: ');
For i:=1 to n do
Begin
Readln(a[i]);
end;
Writeln;For i:=1 to n do
begin
If a[i]<14 then
inc(k);
end;
Writeln(k);
end.
Другие вопросы из категории
пересечении этих диагоналей.
домиков.
Информатика, 7 класс
Алгоритм рисования домика (для Чертежника) я написала. Но вопрос с улицей из домиков. Надо сделать с помощью спец. алгоритма. Процесс я назвала "домик", его надо повторить 5 раз. Но вопрос, как каждый раз смещаться на несколько клеток вправо при каждом след. рисовании? Иначе будет рисовать по одному и тому же месту.
Читайте также
утро","Добрый день","Добрый вечер", "Спокойной ночи". 2)Написать программу,которая определяет,принадлежит ли точка с координатами (x,y)Заштрихованной области,ограниченной точками(x1,y1)(x2,y2).
ввести 3 значное число и находит сумму его цифр.
2. Написать программу, которая предлагает ввести 3 значное число и меняет порядок цифр наоборот. (123- 321)
3.Написать программу, которая предлагает ввести три числа с клавиатуры, находит их сумму, произведение и среднее арифметическое.
2.Дано целое число N.Написать программу ,заменяющую его нулём ,если больше или равно нулю,и увеличивающая его в 2 раза ,если число меньше нуля.
3 .Дано целые числа a и b .Написать программу , которая выводит сначала большее число ,затем меньшее.
4.Даны числа a,b,c.Написать программу ,выводящую их в возрастающем порядке.
ПЛИЗ ПОМОГИТЕ
строку данный массив. Найти сумму неположительных элементов массива,количество элементов кратных 3, произведение элементов,стоящих на четных местах