Написать программу, которая запрашивает массив из n целых чисел, а затем складывает все элементы с нечетными номерами и все элементы с четными номерами и выводит их сумму, а также сам исходный массив. !
Program al; const n=10; var a:array[1..n] of integer; s,s1,s2,i:integer; begin writeln('vvedite danniy massiv='); for i := 1 to n do readln(a[i]); s:=0; s1:=0; s2:=0; for i := 1 to n do if i mod 2=0 then s1:= s1+a[i] else begin s2:=s2+a[i]; s:=s1+s2; end; writeln('ishodniy massiv='); for i := 1 to n do write (a[i]:4); writeln(' summa=',s); readln; end.
Если при сложении с единицей в некоторой системе счисления из двухзначного числа получается трехзначное, то двухзначное число было максимально возможным двухзначным числом, записанным в этой системе и обе его цифры были на единицу меньше основания системы счисления. Таким образом, можно утверждать, что заданные числа это 33₄, 66₇, 88₉ Число 100 в системе счисления по оcнованию n равно n², т.е. для указанных чисел это будут значения 4²=16, 7²=49 и 9²=81. Остается вычесть единицу. Соответственно, в десятичной системе 33₄=15, 66₇=48, 88₉=80
const n=10;
var a:array[1..n] of integer;
s,s1,s2,i:integer;
begin
writeln('vvedite danniy massiv=');
for i := 1 to n do
readln(a[i]);
s:=0;
s1:=0;
s2:=0;
for i := 1 to n do
if i mod 2=0 then s1:= s1+a[i] else
begin
s2:=s2+a[i];
s:=s1+s2;
end;
writeln('ishodniy massiv=');
for i := 1 to n do
write (a[i]:4);
writeln(' summa=',s);
readln;
end.