Двумерные массивы.

[nhbh]

Привет, форумчане! Неделю болел, и пропустил тему, а теперь не могу въехать. Помогите решить, пожалуйста!

1. Дан двумерный массив размерностью 5 х 6, заполненный целыми числами с клавиатуры. Сформировать одномерный массив, каждый элемент которого равен произведению четных положительных элементов соответствующего столбца.
2. Дан двумерный массив размером n x m, заполненный случайным образом. Определить, есть ли в данном массиве строка, в которой ровно два отрицательных элемента.

[Sweta]

Я так понимаю, что пропустили тему массивов, а остальное должны знать.
Давайте по порядку.
По первому заданию. Напишите программу для ввода массива с клавиатуры. Это, примерно тоже что и ввод обычного числа, только ввод производится в двойном цикле:
цикл изменения количества столбцов ( в Вашем случае от 1 по 6, с учетом языка программирования может быть от 0 по 5)
цикл изменения количества строк ( в Вашем случае от 1 по 5, с учетом языка программирования может быть от 0 по 4)
ввод целого числа. Напишите данный фрагмент, с объявлением всех необходимых переменных, потом будем двигаться дальше.

[Smitt&Wesson]

потом будем двигаться дальше.

Вы серьёзно?

Неделю болел, и пропустил тему

Напомнило - выучить С++ за 27 дней. Я его уже 15 лет учу и всегда чё-т новое открываю.

[newerow1989]

Решение 1 задачи:

const n=6;
      m=5;
var p:array[1..n,1..m] of integer;
    a:array[1..m] of integer;
    i,j,c:byte;
begin
   For i:=1 to n do
      For j:=1 to m do
         Readln(p[i,j]);
   For j:=1 to m do
   begin
      c:=1;
      For i:=1 to n do
         If (p[i,j]>0) and (p[i,j] mod 2=0) then
            c:=c*p[i,j];
      If c=1 then
         c:=0;
      a[j]:=c;
      Write(a[j],'  ');
   end;
   Writeln('');
   Readln;
end.

Решение 2 задачи:

const n=10;
      m=5;
var p:array[1..n,1..m] of integer;
    i,j,c:byte;
begin
   Randomize;
   For i:=1 to n do
   begin
      c:=0;
      For j:=1 to m do
      begin
         p[i,j]:=-128+Random(256);
         Write(p[i,j],'  ');
         If p[i,j]<0 then
            c:=c+1;
      end;
      If c=2 then
         Writeln(' - vot stroka') else
         Writeln('');
   end;
   Readln;
end.

Сойдет?