Помогите с програмированием

[Лёль]

Помогите с програмированием

1. Составьте программу ввода и вывода массива: 5, -3, 4, -8, -9, 1, 9, 6, -3, 4, 8, 2.
2. составьте блок-схему алгоритма и программу вычисления в массиве А(10) количества нечётных элементов.
3. составьте программу заполнения массива, не используя клавиатуру, числами: -2, 4, -6, 8, -10, 12, -14, 16, -18, 20.

 

[Vladimir_S]

К сожалению, наши телепаты разъехались, будут только летом, а без них, сами понимаете, узнать требуемый язык программирования мы не в состоянии. Так что ничем помочь не можем. Извините.

 

[Лёль]

язык програмирования паскаль

 

[Vladimir_S]

язык програмирования паскаль

Ну тогда-то что...

1. Составьте программу ввода и вывода массива: 5, -3, 4, -8, -9, 1, 9, 6, -3, 4, 8, 2.

VAR
 A:Array[1..12] of Integer;
 i:Integer;
BEGIN
 For i:=1 to 12 do
  begin
   Write('A[',i:2,']= ');
   Readln(A[i]);
  end;
 Writeln;
 For i:=1 to 12 do
  Write(A[i]:4);
 Readln;
END.

2. составьте блок-схему алгоритма и программу вычисления в массиве А(10) количества нечётных элементов.

VAR
 A:Array[1..10] of Integer;
 i,N:Integer;
BEGIN
 For i:=1 to 10 do
  begin
   Write('A[',i:2,']= ');
   Readln(A[i]);
  end;
 Writeln;
 N:=0;
 For i:=1 to 10 do
  If (A[i] mod 2)<>0 then N:=N+1;
 Writeln(N,' odd elements');
 Readln;
END.

3. составьте программу заполнения массива, не используя клавиатуру, числами: -2, 4, -6, 8, -10, 12, -14, 16, -18, 20.

VAR
 A:Array[1..10] of Integer;
 i,N:Integer;
BEGIN
 A[1]:=-2;
 For i:=2 to 10 do
  If (i mod 2)=0 then A[i]:=-A[i-1]+2 else A[i]:=-A[i-1]-2;
 For i:=1 to 10 do Write(A[i]:4);
 Readln;
END.