1)массив из 10 элементов, вводим их с клавиатуры. вывести на экран все нечетные элементы, начиная с конца. вычислить их произведение 2)вывести на экран элементы массива, стоящие на четных местах, вычислить их сумму (вмассиве 20 элементов, заполнен случайными числами.) 3)массив из 20 элементов, заполнен случайными числами в диапазоне от -50 до 50 .вывести на экран, посчитать количество положительных чисел

Это 3 разные программы, все проверил на pascal abc.net, удачи) 1)uses crt; var a: array [1..10] of integer; i,n,t: integer; begin clrscr; n: =10; for i: =1 to n do begin  read(a[i]);   end;   t: =1; for i: =n downto 1 do begin    if a[i] mod 2=1 then begin write(a[i],' '); t: =t*a[i];   end; end; writeln('произведение нечетных элементов=',t); readln; end.2)  uses crt; var a: array [1..20] of integer; i,n,t: integer; begin randomize; clrscr; n: =20; for i: =1 to n do begin  a[i]: =random(10);   write(a[i],' ');   end; t: =0; for i: =1 to n do begin  if i mod 2=1 then begin write(a[i],' '); t: =t+a[i];   end; end; writeln('сумма четных элементов=',t); readln; end.3)uses crt; var a: array [1..20] of integer; i,n,t: integer; begin randomize; clrscr; n: =20; for i: =1 to n do begin  a[i]: =random(50)-random(50);   write(a[i],' ');   end;   t: =0; for i: =1 to n do begin  if a[i]> 0 then begin t: =t+1;   end;   end; writeln('кол-во положительных элементов=',t); readln; end.

#include< iostream>

using namespace std; int main(){ int n; int *arr; cout < < "enter size of arr(enter n) : "; cin > > n; arr = new int [n]; cout < < "enter arr : "; for(int i = 1; i < = n; i++) cin > > arr[i]; cout < < "your arr : "; for(int i = 1; i < = n; i++) cout < < arr[i] < < " " ; for(int i = 1; i < = n; i++) { arr[i] = arr[i] + i ; } cout < < endl;

cout < < "new arr : "; for(int i = 1; i < = n ; i++) cout < < arr[i] < < " " ;

}

program vigod; uses crt; const  n = 12;   m = 13; var  a: array[1..n,1..m] of integer;   i, j, max: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   {заполняем массив случайными числами}  randomize;   for i: =1 to n do      for j: =1 to m do          begin              a[i,j]: =random(101)-50;               if a[i,j] mod 3 = 0 then max: =a[i,j];           end;   {находим нужный элемент и выводим массив}  for i: =1 to n do      begin          for j: =1 to m do          begin              if (a[i,j] mod 3 = 0) and (a[i,j]> max)then                  max: =a[i,j];               write(a[i,j]: 4);           end;           writeln();       end;     writeln();     writeln('максимальный элемент кратный 3, равeн ',max); end.проверено - работает на паскаль авс