Задан одномерный массив [2, -6, 8, 1, 9]. Найти и вывести на печать все элементы списка и сумму четных элементов массива в той же строке вывода
Вывести элементы с нечетными индексами массива и сумму этих элементов.
Вывести элементы с нечетными индексами массива и сумму этих элементов.
More Questions From This User See All
Answers & Comments
Ответ:
var x,y,z,i,s:integer;
var a:array [1..5] of integer;
begin
s:=0;
writeln('Заполните массив:');
for i:=1 to 5 do begin
readln(a[i]);
end;
writeln();
writeln('Исходный массив:');
writeln(a);
for i:=1 to 5 do begin
if (a[i] mod 2 = 0) then
s:=s+a[i];
end;
writeln();
writeln('Сумма четных элементов массива =',' ',s);
writeln();
for i:=1 to 5 do begin
if (i mod 2 <> 0) then
writeln(i,'-й элемент с нечётным индексом =', ' ',a[i]);
end;
for i:=1 to 5 do begin
if (i mod 2 <> 0) then
x:=x+a[i];
end;
writeln();
writeln('Сумма элементов массива с нечётными индексами =', ' ', x);
end.