Паскаль массивы

[Gorny]

Массивы. Для одномерного массива, размерность которого вводится с клавиатуры, вычислить значение В=(X+Z)/(Y+2) X - количество элементов, лежащих в интервале (-3 ; 4);
Y - сумма элементов массива с четными номерами;
Z - номер первого нулевого элемента массива

program lab_rabota_7;
uses crt;
const n=10;
var a:array[1..n] of integer;
i,x,z,y:integer;
b:real;
begin
TextBold; {Жирный шрифт}
TextAttr:=16*LightBlue; {Цвет фона светло-голубой}
clrscr; {очистка экрана}
textcolor(11); {цвет текста голубой}
gotoxy (10,5); {координаты надписи}
write('Лабораторная работа №6');
gotoxy (10,7);
write('Тема: Массивы');
gotoxy (10,9);
write('Выполнил: ');
gotoxy (10,11);
write(' ');
gotoxy (20,22);
write('Нажмите любую клавишу');
readln; {пауза}
clrscr;
{ЗАДАНИЕ }
gotoxy (10,5);
write('Задание 1:');
gotoxy (10,7);
write('Для одномерного массива, размерность которого вводится с клавиатуры, ');
gotoxy (10,8);
write('вычислить значение В=(X+Z)/(Y+2)');
gotoxy (10,9);
write('X - количество элементов, лежащих в интервале (-3 ; 4);');
gotoxy (10,10);
write('Y - сумма элементов массива с четными номерами;');
gotoxy (10,11);
write('Z - номер первого нулевого элемента массива;');
gotoxy (10,22);
write('Нажмите любую клавишу');
readln;
clrscr;
begin
ClrScr;
Writeln('Введите массив...');
for i:=1 to n do
begin
Write('a[',i,']=>');
Readln(a[i]);
end;
for i:=1 to n do
if (a[i]>-3) and (a[i]<4) then
x:=x+1;
for i:=1 to n do
if i mod 2=0 then
y:=y+a[i];
for i:=1 to n do
if a[i]=0 then
z:=i;
for i:=1 to n do
b:=(x+z)/(y+2);
Writeln('Ответ ',b:2:2);
end;
gotoxy (10,22);
write('Нажмите любую клавишу');
end.

Правильно?
А как "Задать квадратную матрицу порядка N ,вычислить и запомнить в массиве произведение элементов каждого столбца матрицы" ?

[notHaker]

Правильно вроде, на первый взгляд. А матрица - это двумерный массив вида arr : array[1..n,1..m]. например :

const
 n = 20;
 m = 20;
var
 arr : array[1..n,1..m] of integer;
 mul_arr : array[1..n] of integer;
 i,j,mul : integer;
begin
mul := 1;
for j := 1 to m do
begin
for i := 1 to n do
mul := mul * arr[i,j];
mul_arr[j] := mul;
end;
end;

[Gorny]

Пытаюсь понять код =\
Как в такой рамке код выводить, а не цитатой?

[Gorny]

Ща догадаюсь =)

[Lemo]

Вот так:
[ CODE] [/CODE]
или
#

[Gorny]

Сообщение от notHaker

Правильно вроде, на первый взгляд. А матрица - это двумерный массив вида arr : array[1..n,1..m]. например :

const
 n = 20;
 m = 20;
var
 arr : array[1..n,1..m] of integer;
 mul_arr : array[1..n] of integer;
 i,j,mul : integer;
begin
mul := 1;
for j := 1 to m do
begin
for i := 1 to n do
mul := mul * arr[i,j];
mul_arr[j] := mul;
end;
end;

Понять бы как этот код поможет мне с заданием =\
Мб объяснишь?

[ai\ekcah^p]

program zad;
uses crt;
var
m:array[1..100,1..100] of integer;
a:array[1..100] of integer;
i,j,pr,n:integer;
begin
 clrscr;
 randomize;
  write('введите n -> '); readln(n);
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
     m[i,j]:=random((9)-1);
     write(m[i,j]:3);
     end;
    writeln;
   end;
  pr:=1;
  for j:=1 to n do
   begin
   pr:=1;
   for i:=1 to n do
    begin
     pr:=m[i,j]*pr;
     a[j]:=pr;
    end;
   writeln('произведение элементов ',j,'-го столбца =',pr );
   end;
  writeln('в массиве произведение элементов каждого столбца ');
  for j:=1 to n do
  begin
   write(a[j]:8);
  end;
 readln;
end.

[Gorny]

Оо спасибо огромное.
*ушел изучать и пытаться понять.