Дано n, . Вычислить: a1 - a2 + a3- …+ (-1)n+1 an. Дано n, . Получить последовательность , где b1

+ 0 -

Kep32112

14 июня 2013 г., 12:14:37 (10 лет назад)

Program Alenka1;
const n=20;
var
 a:array[1..n] of integer;
 i,sum: integer;
begin
  sum:=0;
  for i:=1 to n do
    begin
      write('Введите ',i,'-e число ');
      readln(a[i]);
      if (i mod 2)=1 then sum:=sum+a[i]
        else sum:=sum+a[i];
    end;
  writeln('Сумма равна ',sum);
end.

Program Alenka2;
const n=20;
var
 a,b:array[1..n] of integer;
 i: integer;
begin
  write('Введите 1-e число ');
  readln(a[1]);
  b[1]:= a[1];
  for i:=2 to n do
    begin
      write('Введите ',i,'-e число ');
      readln(a[i]);
      b[i]:= b[i-1]+a[i];
    end;
  for i:=1 to n do
    begin
      writeln('A[',i,']= ',a[i],'  B[',i,']=',b[i]);
    end;
end.

Program Alenka3;
const n=20;
var
 a:array[1..n] of integer;
 i,k,sum: integer;
begin
  sum:=0;
  k:=0;
  for i:=1 to n do
    begin
      write('Введите ',i,'-e число ');
      readln(a[i]);
      if (a[i] mod 5 = 0) AND (a[i] mod 4 <> 0) then
      begin
        sum:=sum+a[i];
        k:=k+1;
      end;
    end;
  writeln('Сумма таких элементов = ',sum);
  writeln('Их количество = ',k);
end.

Program Alenka4;
const n=20;
var
 a,b:array[1..n] of real;
yes: boolean;
i: integer;
begin
  yes := TRUE;
  write('Введите 1-e число ');
  readln(a[1]);
  b[1]:= a[1]*2;
  for i:=2 to n do
    begin
      write('Введите ',i,'-e число ');
      readln(a[i]);
      b[i]:= (i+1)*power(a[i],i);
      if (b[i]<b[i-1]) then  yes := FALSE;
    end;
  for i:=1 to n do write(b[i],'  ');
  writeln;
  if yes then writeln('эти числа образуют возрастающую последовательность')
    else writeln('эти числа НЕ образуют возрастающей последовательности');
end.