Developing.ru

Код: Выделить всё

const 
  N=10;
var
  A:array[1..N] of integer; 
  i,S:integer;
begin
  {заполнение}
  for i:=1 to N do A[i]:=random(10);
  {вывод на экран}
  for i:=1 to N do writeln(A[i]);
  {сумма}
  S:=A[2];
  for i:=4 to N div 2 do S:=S[i*2];
  writeln('Сумма четных элементов=',S);
  {сумма после нулевого
  если нулевого нет, то подсчитается полная сумма}
  i:=succ(N); S:=0;
  repeat  
    dec(i);
    S:=S+A[i];
  {идея проста, шагаем от конца, до первого нуля или до начала}
  until (i=1) or (A[i]=0);
  writeln('Сумма элементов после последнего 0=',S);
end.

Код: Выделить всё

var
  X:longint; N:integer;
begin
  write('введите число:'); readln(X);
  N:=0;
  while (X>0) do begin
    if ((X mod 10) mod 2) = 1 then inc(N);
    X:=X div 10;
  end;
  if N>0 then writeln('Число содержит нечетные цифры') else writeln('Все цифры в числе - четные');
end.