Сформировать массив из n случайных чисел на промежутке [-50;50].Найти сумму четных чисел.
10-11 класс
|
program Project2;
{$APPTYPE CONSOLE}
uses Windows;
var n,i,s:integer; a:array of Integer;
begin
randomize;
s:=0;
SetConsoleOutputCP(1251);
write('Введите длину массива: ');
readln(n);
SetLength(a,n);
for i:=0 to Length(a) do
a[i]:=Random(100)-50;
for i:=0 to Length(a) do
write(a[i]:3);
writeln;
for i:=0 to Length(a) do
if a[i] mod 2 =0 then
s:=s+a[i];
writeln('Сумма: ',s);
Readln;
end.
Другие вопросы из категории
Известна температура больного за 20 дней пребывания в больнице. Можно ли еговыписывать, если для этого требуется, чтобы не менее половины всех дней, когда у негобыла температура ниже 37°, приходилось на вторую половину его пребывания вбольнице?
объём получившегося текста в одной из кодировок Unicode, в которой каждый символ кодируется 16 битами.
Или хотя бы ход решения, какие операторы использовать и т. п.
Читайте также
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
половину массива и выводит новый массив на экран.
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.