Предмет: Информатика,
автор: DenisBal
Задан одномерный массив [2, -6, 8, 1, 9]. Найти и вывести на печать все элементы списка и сумму четных элементов массива в той же строке вывода
Вывести элементы с нечетными индексами массива и сумму этих элементов.
dimagogvangog:
Какой язык программирование?
Ответы
Автор ответа:
2
Ответ:
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.
Похожие вопросы
Предмет: Українська мова,
автор: САНЯ12354543
Предмет: Українська мова,
автор: kristinalavren1
Предмет: Русский язык,
автор: Аноним
Предмет: Литература,
автор: Kamilla5362378
Предмет: Қазақ тiлi,
автор: aliaxn