Составьте программу вычисления в массиве А (10), заполненном случайными числами из интервала [0, 10], количества элементов, меньших 5.
5-9 класс
|
Program z1;
vari,r:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(10);
If a[i]<5 then
r:=r+1;
end;
writeln('Меньше 5: ',r);
end.
Другие вопросы из категории
Что может выйти , если строго один раз поменять местами две соседние буквы результата?
1) затравка
2) затарвка
3) затравак
Читайте также
N) произведения нечетных элементов 2)Составьте программу вычисления в массиве B(N) максимального среди отрицательных элементов и его номера. заранее огромное спасибо! очень нужно!
элементов. 3) Составьте программу вычисления среднего арифметического элементов массива. Пожалуйста.. очень надо!
2. Дана фраза. Определить, сколько в ней предложений.
поверхности, суммы ребер прямоугольного параллелепипеда. 3. Составьте программу вычисления диагоналей ромба по стороне и углу.
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.