3
Аноним
Информатика
25 мая 09:33

Дан одномерный массив размером 10 элементов на интервале [50;-50] определить какая сумма больше четных или нечетных элементов

массива (9класс Паскаль)

Ответ или решение1

var
   arr : array[0..10] of integer;// объявляем массив.
   i, sum, sum1 :integer; // объявляем переменную целочисленного типа.
begin
   for i := 1 to 10 do // начало цикла.
    begin
      arr[i] := random(50,-50); // заполняем элемент массива случайным числом от -50 до 50.
       if (arr[i] mod 2 = 0) then // если элемент четный.
           sum := sum + arr[i] //считаем сумму четных элементов.
       else // если элемент нечетный.
           sum1 := sum1 + arr[i]; //считаем сумму нечетных элементов.
       end;
   if (sum > sum1) then writeln ('Cумма четных чисел больше суммы нечетных');
   if (sum < sum1) then writeln ('Cумма нечетных чисел больше суммы четных');
   if (sum = sum1) then writeln ('Cумма четных и нечетных чисел равны');
end.

0 / 10000
ВходРегистрация

Вход

или

Регистрация