Числовой ряд из 10 чисел задается генератором случайных чисел в диапазоне
Числовой ряд из 10 чисел задается генератором случайных чисел в диапазоне от 1 до 20. Отыскать как сумма четных отличается от суммы нечетных.
Задать свой вопросvar
A: array [1..10] of Integer; // массив для записи чисел
i, s1, s2: Integer;
begin
Randomize; // инициализация датчика случайных чисел
WriteLn ('Массив:');
for i := Low (A) to High (A) do begin // цикл от начального до окончательного элемента массива
A [i] := Random (21); // случайное число записываем в массив
Write (A [i], ' '); // и выводим его на экран
end;
s1 := 0; // чистка переменных для подсчета сумм s1 - четные s2 = нечетные
s2 := 0;
for i := Low (A) to High (A) do begin // опять таковой же цикл
if i mod 2 = 0 then // проверка на четность (остаток от целочисленного дробленья на 2)
s1 := s1 + A [i] // добавим к сумме четных
else
s2 := s2 + A [i]; // добавим к сумме нечетных
end;
WriteLn;
if s1 = s2 then // выводим рассчитанные значения
Writeln ('Сумма четных одинакова сумму нечетных')
else if s1 gt; s2 then
Writeln ('Сумма четных больше суммы нечетных на ', s1 - s2)
else
Writeln ('Сумма четных меньше суммы нечетных на ', s2 - s1);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.