составить программу, которая бы находила сумму нечётных элементов одномерного целочисленного массива. Способ заполнения массива - любой (или при
5-9 класс
|
помощи функции random или при помощи простого присваивания).
var
a:array[1..100] of integer;
Summ, i, n:integer;
begin
write('Введите количество элементов массива ');
readln(n);
for i := 1 to n do
begin
a[i] := random(51) - 25;
write(a[i], ' ');
if a[i] mod 2 <> 0 then
Summ := Summ + a[i];
end;
writeln;
writeln('Summ = ', Summ);
end.
Другие вопросы из категории
кол-ва информации? Какова связь кол-ва инф-ии с энтропией, хаосом?
6.Что означает термин «актуализация информации»?
7.Каковы основные свойства инф-ии?
Читайте также
функции random или при помощи простого присваивания).
функции random или при помощи простого присваивания).
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
элементов с нечётными индексами
2)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 10,находит максимальный элемент массива,а затем вычисляет,сколько раз он встречается в массиве
и количество элементов с нечетными значениями.
б) Составьте программу, которая заполняет массив b[1..8] случайными целыми числами в диапазоне от 1 до 10 и находит произведение элементов с нечетными значениями и количество элементов с четными значениями.