Помогите пожалуйста! Массив из 10 элементов заполнен случайными числами в Паскале. Найти количество элементов массива кратным 3 и больше 50
5-9 класс
|
var i,s:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do begin
a[i]:=random(100);write(a[i],' ');
if (a[i] mod 3=0) and (a[i]>50) then s:=s+1;
end;
writeln('S=',S);
end.
Другие вопросы из категории
другой берег. Однако в лодку кроме крестьянина помещается либо только волк, либо только коза, либо только капуста. Оставлять волка с козой либо козу с капустой без присмотра нельзя (понятно почему). Как должен вести себя крестьянин?
Пример ввода:
1245
Пример вывода:
5- нечетное число
Читайте также
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
Массив из 10 элементов заполнен случайными числами. Узнать кол-во элементов массива >10 <70.
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.