Дан одномерный массив размером 10 элементов на интервале [50;-50] определить какая сумма больше четных или нечетных элементов массива (9класс Паскаль)
5-9 класс
|
Program TwoSums;
Uses Crt;
var a:array[1..10] of integer;
i:integer;
s1,s2:longint
begin
clrscr;
write('Исходный массив:');
s1:=0;s2:=0;
for i:=1 to 10 do
begin
a[i]:=random(101)-50;
write(a[i]:3);
if (i mod 2)<>0 then s1:=s1+a[i]
else s2:=s2+a[i];
end;
writeln;
writeln('Сумма нечётных элементов массива:',s1);
writeln('Сумма чётных элементов массива:',s2);
if (s1=s2) then writeln('Суммы равны');
if (s1>s2) then writeln('Сумма нечётных элементов массива больше !')
else writeln(' Сумма чётных элементов массива больше !');
readkey;
end.
Другие вопросы из категории
вывести на экран последовательность 1/1,1/3,1/5,1/7,..(9 элементов)
Читайте также
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
1)С клавиатуры вводится последовательность чисел, оканчивающаяся 0. Сколько элементов последовательности превышает число 100?
2)Вводится последовательность из 10 вещественных чисел. Вычислить сумму элементов, не превышающих числа А.
3)С клавиатуры вводится последовательность из 7 целых чисел. Определить каких чисел больше: четных или нечетных.
4)С клавиатуры вводится последовательность из 9 чисел. Найти разность между макимальным и минимальным элементами.
5)С клавиатуры вводится последовательность чисел, оканчивающаяся 0. Найти порядковый номер отрицательного элемента, если считать элементы справа. В случае нескольких отрицательных элементов вывести номер последнего из них (т.е. самого правого).
6)С клавиатуры вводится последовательность чисел, оканчивающаяся 0. Найти порядковый номер первого двузначного элемента последовательности, считая элементы в прямом порядке.
7)С клавиатуры вводится последовательность положительных чисел, оканчивающаяся 0. Найти сумму двузначных элементов последовательности.
8)С клавиатуры вводится последовательность чисел, оканчивающаяся 0. Найти произведение отрицательных элементов последовательности.
9)С клавиатуры вводится последовательность чисел, оканчивающаяся 0. Найти в ней минимальный элемент.
10)С клавиатуры вводятся числа 2, 5 или 10, означающие удаления игроков на соответствующее кол-во минут. Условно положительные значения означают удаления в команде А, а отрицательные - в команде В. Для завершения ввода данных используется 0. Сколько всего штрафного времени заработано командами А и В отдельно, а также определить общее штрафное время.
подсчитать кол-во пятерок , четверок, тоек полученных за контрольную работу, если число учеников равно 8
3)Дан одномерный числовой массив,изменить знак элементов массива К[1;12] на противоположный
1) Заменить все чётные элементы на их номера. Вывести на экран исходный и новый массив.
2) Заменить все чётные элементы, стоящие на нечетных местах, на их номера.
10 и 20 включительно,увеличить в 5 раз.Вывести на экран монитора первоначальный и преобразованный массивы в столбик.