xali-gali

здраствуйте помогите пожалуйста, проверьте правильны ли программы и помогите составить блок-схемы. (тубопаскаль) заранее благодарен!
1. Для массива Х(N)вывести на печать первый отрицательный элемент массива и его порядковый номер, полагая, что в массиве есть хотя бы один отрицательный элемент.
2. Вычислить произведения элементов строк матрицы размером 5х4.Результат получить в одномерном массиве размером 5.
1.
uses crt;
var
a:array[1..10000] of longint;
n,i:integer;
begin
clrscr;
writeln('Enter size of array');
readln(n);
clrscr;
for i:=1 to n do
begin
writeln('Enter the ',i,' element of array');
readln(a[i]);
clrscr;
end;
i:=1;
while a[i]>0 do
i:=i+1;
writeln('number= ',a[i],'; place= ',i);
end.

2.
var
a:array[1..5] of longint;
b:array[1..5,1..4] of longint;
n,i:integer;
begin
clrscr;
for i:=1 to 5 do
for n:=1 to 4 do
read(b[i,n]);
clrscr;
for i:=1 to 5 do begin
a[i]:=1;
for n:=1 to 4 do
a[i]:= a[i]*b[i,n]
end;
for i:=1 to 5 do writeln('The product of the column ',i,' is ',a[i]);
end.

Замечание:

Неправильно прежде всего то, что Вы во-первых, клонируете (дублируете) топики, а во-вторых, цепляетесь к чужим темам, вместо того, чтобы создать свою. И то, и другое у нас не допускается. Создана новая тема Задачи в ТурбоПаскале . Старые темы, во избежание дальнейшего к ним цепляния, закрыты. Модератор