1)дан одномерный массив из 5 элементов.найти сумму положительных элементов. 2)дан одномерный массив из 7 элементов.найти колличество четных положительных элементов. 3)дан массив из 6 элементов.найти произвдение положительных из них.

program alexandra_1; uses crt; const n=5; 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 a[i]> 0 then sum: =sum+a[i];   end;   writeln('сумма положительных элементов ',sum); end.program alexandra_2; uses crt; const n=7; var  a: array[1..n] of integer;   i, num: integer; begin  num: =0;   for i: =1 to n do  begin         write('введите ',i,'-e число ');       readln(a[i]);       if (a[i]> 0) and (a[i] mod 2 = 0) then num: =num+1;   end;   writeln('количество четных положительных элементов ',num); end.program alexandra_3; uses crt; const n=6; var  a: array[1..n] of integer;   i, tum: integer; begin  tum: =1;   for i: =1 to n do  begin         write('введите ',i,'-e число ');       readln(a[i]);       if a[i]> 0 then tum: =tum*a[i];   end;   writeln('произведение положительных элементов ',tum); end.

uses crt;

var i,s: integer; a: array[1..5] of integer; beginrandomize; s: =0; for i: =1 to 5 dobegina[i]: =random(15)-5; if a[i]> 0 then s: =s+a[i]; end; writeln(s); readln; end.

uses crt;

var i,s: integer; a: array[1..7] of integer; begins: =0; randomize; for i: =1 to 7 dobegina[i]: =random(15)-5; if ((a[i]> 0) and (a[i] mod 2 = 0)) then inc(s); end; writeln(s); readln; end.

 

uses crt;

var i,s: integer; a: array[1..6] of integer; begins: =1; randomize; for i: =1 to 6 dobegina[i]: =random(15)-5; if (a[i]> 0) then s: =s*a[i]; end; writeln(s); readln; end.

var

  n: array [1..15] of 1..15; {массив, в который записываются номера положительных элементов массива х}

  x: array [1..15] of real; //массив х

  i: integer; //переменная для цикла

  number: integer; //сколько номеров было записано

begin

  number: = 0; //обнуляем счетчик номеров

  for i: = 1 to 15 do   //вводим с клавиатуры массив х

  begin

    writeln('введите ', i, ' элемент массива х');

    readln(x[i]);

    if x[i] > 0 then   {если введенный элемент массива х положительный, то прибавляем к счетчику добавленных номеров 1 и присваиваем соответствующему элементу массива n номер элемента}

    begin

      number: = number + 1;

      n[number]: = i;

    end;

  end;

  write('номера положительных элементов массива х:   ');

  for i: = 1 to number do write(n[i], '   '); //выводим записанные номера элементов

  writeln; {переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}

end.

 

программа отдельно вычисляет произведения строк и столбцов заданных ячеек.

program n1; uses crt; const n=10; var a: array[1..n,1..n] of integer; i,j,x1,x2,y1,y2: integer; p1,p2,p3,p4: longint; beginclrscr; for i: =1 to n dobegin for j: =1 to n do begin a[i,j]: =random(10); a[i,j]: =a[i,j]+1; write(a[i,j]: 3); end; writeln; end; writeln('vvedite pervyu paru koordinat'); readln(x1,y1); writeln('vvedite vtoruu paru koordinat'); readln(x2,y2); p1: =1; p2: =1; p3: =1; p4: =1; for i: =1 to n do begin p1: =p1*a[i,y1]; p2: =p2*a[i,y2]; end; for i: =1 to n do begin p3: =p3*a[x1,j]; p4: =p4*a[x2,j]; end; writeln('proizvedenie strok = ',p1*p2); writeln('proizvedenie stolbcov = ',p3*p4); readlnend.