Блог для маленьких школьников и их родителей
ШколаЛа

Сформировать одномерный массив из n элементов найти сумму тех элементов массива которые одновременно…

Автор:
Предмет: Информатика
Уровень: студенческий

сформировать одномерный массив из n элементов найти сумму тех элементов массива которые одновременно имеют четные и положительные значения.элементы вводятся с клавиатуры. Написать программу в pascale! Сделать в масиве

Ответов к вопросу: 1
  • kadenkoart
    09.12.2024 | 16:07

    Код программы:
    const n = 10;

    var a:array[0.n] of integer;
    i, sum:integer;

    begin
     writeln(‘Введите массив: ‘);

     for i:= 0 to n do begin
       write(‘Введите ‘,i,’ элемент: ‘);
       readln(a[i]);

       end;

       sum:=0;

       for i:= 0 to n do begin
       if (a[i] mod 2 = 0) and (a[i] >0) then
         sum := sum + a[i];

       end;

       writeln(‘Сумма = ‘,sum);
    end.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.