Задать вопрос
24 марта, 12:58

Задачи на массивы. Нужна сама задача и к ней решение. Желательно несколько задачь.

+4
Ответы (1)
  1. 24 марта, 14:44
    0
    {2 в 1)

    Задача: вывести сумму всех нечетных эелементов и сумму элеметнов стоящих на четных позициях}

    var

    a:array[1 ... 100] of integer;

    i, summ1, summ2, n:integer;

    begin

    summ1 : = 0;

    summ2 : = 0;

    randomize;

    write ('n = ') ; readln (n) ;

    writeln ('Исходный массив : ') ;

    for i : = 1 to n do

    begin

    a[i] : = random (51) - 25;

    write (a[i], ' ') ;

    if abs (a[i]) mod 2 = 1 then

    summ1 : = summ1 + a[i];

    if i mod 2 = 0 then

    summ2 : = summ2 + a[i];

    end;

    writeln;

    writeln ('Сумма нечетных элементов: ', summ1) ;

    writeln ('Сумма элементов стоящих на четных позициях: ', summ2) ;

    readln;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Задачи на массивы. Нужна сама задача и к ней решение. Желательно несколько задачь. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы