Найдите суммы элементов массива чётных и нечётных позиций - Pascal ABC

  1. Найдите суммы элементов массива чётных и нечётных позиций Написать нужно в Pascal Abc


textual

Код к задаче: «Найдите суммы элементов массива чётных и нечётных позиций - Pascal ABC»

var a:array[1..100] of integer; b,c,i,n:integer;
begin
//заполнение массива
writeln('введите кол-во элементов в массиве');
readln(n);
for i:=1 to n do
readln(a[i]);
//обработка массива
for i:=1 to n do
if i mod 2 = 0 then b:=b+a[i] else c:=c+a[i];
writeln('сумма чётных - ',b,', сумма нечётных - ',c);
end.

СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 4.154 из 5



Похожие ответы
  1. Подскажите пожалуйста - Это вообще нормально?(s:=s+ ( function summa(k:integer):real; ) Если нормально, то где ошибки, опять таки в этой строчке

  1. Скажу честно и прямо, сделайте за меня. Будем говорить, что число a лучше числа b, если сумма цифр a больше суммы цифр числа b, а в случае равенства сумм их цифр, если число a меньше числа b. Например, число 124 лучше числа 123, так как у первого из них сумма цифр равна семи, а у второго — шести. Также, число 3 лучше числа 111, так как у них равны суммы цифр, но первое из них меньше. Дано число n. Найдите такой его делитель d (само число n и единица считаются делителями числа n), что любой другой делитель c числа n лучше, чем d. Входные данные Первая строка входного файла INPUT.TXT содержит целое число n (1 ≤ n ≤ 105000). Выходные данные В выходной файл OUTPUT.TXT выведите ответ на задачу. Примеры INPUT.TXT 10 OUTPUT.TXT 10 ----------------------- INPUT.TXT 239 OUTPUT.TXT 1 P.S. знаю подобное есть в инете, но оно не совсем правильно работает

  1. Введите массив из 5 элементов с клавиатуры и найдите количество элементов , запись которых в 2с.с-палиндром(например,10101 в двоичной=21)

  1. на натуральном отрезке [a,b] найдите и выведите число N с наибольшей суммой своих делителей Через Repeat или While

  1. Задание: "В прямоугольной матрице выявить все квадратные подматрицы, у которых суммы элементов обеих диагоналей одинаковы."

  1. Вычислить значения суммы ряда S при заданных с консоли начальном и конечном значениях аргумента x (x_nach, x_kon), шаге его изменения delta_x и точности вычислений eps. Вычисленные значения ряда сравнить со значениями заданной функции f(x).

  1. Упорядочить массивы x(N), y(N), N <= 350 по возрастанию суммы xi + yi.

  1. Решите с помощью блок схемы или паскаля Составьте алгоритм для решения следующей задачи: Среди N произвольных вещественных чисел найдите количество не равных нулю.

  1. Вычислить округленное значение логарифма модуля суммы синусов двух заданных вещественных чисел Входные данные: Во входном потоке в первой строке задано два вещественных числа. Значения чисел по модулю не превышают 1 000 000 000. Выходные данные: В выходной поток вывести одно целое число. Пример входного файла (input.txt): 5.5 2.5 Пример выходного файла (output.txt): -2 ______________________________________________________________ Вот так что ли, или как?

  1. 1)В заданном множестве точек на плоскости найдите четыре точки, которые могут служить вершинами квадрата.