Найти сумму элементов массива, значения которых не превышают 6.
5-9 класс
|
var i,s,n:integer;
a:array[1..1000] of integer;
begin
write('введите количество элементов массива');
read(n);
for i:=1 to n do begin
a[i]:=random(10);
if a[i]<=6 then s:=s+a[i];
end;
writete('Ответ:', s);
end.
Другие вопросы из категории
скопировали её во все ячейки диапазона F2:F11, кроме одной, таким образом, что содержимое ячейки H1 стало равно 50. В какую ячейку НЕ скопировали формулу?
берег.У берега стояла лодка,которая могла вместить только двух человек.Купцы боязливо поглядывали на разбойников,так как знали,что во время переправы всякое случится.Если во время переправы на берегу число разбойников и купцов бкдет одинаковым то разбойники не тронут купцов,а если разбойников превысит число купцов хотя бы на одного человека,то разбойники убьют купцов.Сколько рейсов они сделают что бы переправится благополучно?За рейс следует считать движение лодки в одном направление.
соответствующее сообщение является либо не является
Рассчитайте объем видеопамяти, необходимый для хранения графического изображения , заснимающего весь экран монитора с разрешением 1280х1024 и палитрой из 65 536 цветов
Читайте также
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
Дан массив. Найти:
1) сумму элементов массива, значение которых не превышает 20
2) сумму элементов массива, кратных 3 или 5
3)Определите частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов
на языке паскаль
Входные данные:
в первой строке целое число n (0 < n ≤ 100) - кол-во элементов в массиве и целые числа i1 и i2 (0 < i1, i2 ≤ 100). Во второй строке целые числа Х1, Х2,..,Хn разделенные пробелом (числа по модулю не превосходят 32000) - значения элементов массива.
Выходные данные:
сумма элементов массива c номерами от i1 до i2.
(Написать программу на Паскале)
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы