Задачи на массивы. Нужна сама задача и к ней решение. Желательно несколько задачь.
{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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
