написать программу на языке паскаль .ПЖЛ ПОМАГИТЕ дан одновременный массив из п целых чисел .составить программу вычисления суммы элементов стоящих на
10-11 класс
|
четных местах
var
a : array [1..1000] of integer;
i, n, sum : integer;
begin
read (n);
for i := 1 to n do read (a[i]);
sum := 0;
for i := 1 to n do
if i mod 2 = 0 then inc (sum, a[i]);
writeln (sum);
end.
var
M:array[0..100]of integer;
i,k,n:integer;
begin
k:=0
randomize;
write('введите кол-во элементов массива');
read(n);
for i:=1 to n do
begin
M[i]:=random (30);
if i mod 2 =0 then k:=k+M[i]
else write ('Четных элементов нет');
writeln ('Сумма четных элементов', k);
end;
end.
Другие вопросы из категории
1. обработка данных и получение результата
2. диалоговый режим работы с компьютером
3. интегрированность с другими программными продуктами
строк.Исходный массив и результат вывести на экран
массивах размерностью 5 и 10 элементов.
Если можно с объяснением
Читайте также
массив из N целых чисел и выводит на экран номера отрицательных элементов и сами эти элементы. Протестировать программу для следующих массивов:
а) 3 5 -2 0 -6 -8 1
б) -1 -2 -3 0 -1 2 3
массивы должны вводися вручную а не рандомно.
оказаться)
нужно написать программу на c++
Используя обращения 1) по индексу и 2) по указателю.
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
2)Найти количество всех нечетных чисел на интервале от 11 до 20
3)Найти сумму целых положительных четных чисел на интервале от 1 до 100
4)Найти сумму ряда,общий член которого равен А(х)=1/(3*N-2)*(3*N+1)
5)Дано произвольное число n≤100.Определить количество цифр в числе
ОЧЕНЬ НУЖНО!!НА ЯЗЫКЕ ПАСКАЛЬ!ВЫРУЧАЙТЕ!