Найти среднее арифметическое чисел стоящих на нечетных местах и подсчитать количество чисел меньших заданного С.
5-9 класс
|
Тема: работа с одномерными массивами.
var
a: array [1..25] of integer;
c, i, S: integer;
begin
for i := 1 to 25 do
begin
a[i] := random(25);
write(a[i], ' ');
if (a[i] mod 2 = 1) then
begin
S += a[i];
c += 1;
end;
end;
writeln();
writeln(S / c, #13);
readln(c);
S := 0;
for i := 1 to 25 do
if (a[i] < c) then s += 1;
writeln(S);
end.
Другие вопросы из категории
помогите пожалуйста
2. В ячейке А1 содержится формула =$D2-C2. Как изменится эта формула при копировании ее из ячейки А1 в ячейку A2?
3. Укажите выражение, которое может быть формулой Excel.а) =А5+5$б) А$123+65в) =$А$6+$7$Сг) =А$1
4. Приведите примеры ссылок: относительной, абсолютной, смешанной.
5. В ячейку E5 ввели формулу =$A$5*B5. Затем эту формулу распространили вниз. Какая формула содержится в ячейке Е8?
выполнения вычислений диаграмма по значениям диапазона ячеек A2:D2
соответствовала рисунку:
Угадай число. Один из партнеров вводит в программу число, а второй должен отгадать это число. Причем на каждый предложенный вариант программа отвечает либо «больше», либо «меньше» до тех пор, пока число не будет отгадано. Вывести количество попыток, которое было сделано.
Читайте также
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). Количество чисел не превышает 100. Введённые числа по модулю не превышают 300. Программа должна вывести среднее арифметическое чисел, кратных 9, или вывести NO, если таких чисел в последовательности нет.
1)дан массив четных чисел ,определить сумму элементов которые делятся на 5 ,стоящих на нечетных местах.
2)Дано число и массив, найти количесвто элементов , равных данному числу
элемента исходного массива, в полученном массиве вывести элементы стоящие на нечетных местах. Напишите, пожалуйста программу на языке Pascal