Задачи в ТурбоПаскале
здраствуйте помогите пожалуйста, проверьте правильны ли программы и помогите составить блок-схемы. (тубопаскаль) заранее благодарен!
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
;
clrscr;
for i:=1 to n do
begin
writeln('Enter the ',i,' element of array');
readln(a);
clrscr;
end;
i:=1;
while a>0 do
i:=i+1;
writeln('number= ',a,'; 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:=1;
for n:=1 to 4 do
a:= a*b[i,n]
end;
for i:=1 to 5 do writeln('The product of the column ',i,' is ',a);
end.
[mod2]Неправильно прежде всего то, что Вы во-первых, клонируете (дублируете) топики, а во-вторых, цепляетесь к чужим темам, вместо того, чтобы создать свою. И то, и другое у нас не допускается.
Создана новая тема http://www.tehnari.ru/f41/t70533/ . Старые темы, во избежание дальнейшего к ним цепляния, закрыты.
Модератор[/mod2]
здраствуйте помогите пожалуйста, проверьте правильны ли программы и помогите составить блок-схемы. (тубопаскаль) заранее благодарен!
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
; clrscr;
for i:=1 to n do
begin
writeln('Enter the ',i,' element of array');
readln(a);
clrscr;
end;
i:=1;
while a>0 do
i:=i+1;
writeln('number= ',a,'; 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:=1;
for n:=1 to 4 do
a:= a*b[i,n]
end;
for i:=1 to 5 do writeln('The product of the column ',i,' is ',a);
end.
[mod2]Неправильно прежде всего то, что Вы во-первых, клонируете (дублируете) топики, а во-вторых, цепляетесь к чужим темам, вместо того, чтобы создать свою. И то, и другое у нас не допускается.
Создана новая тема http://www.tehnari.ru/f41/t70533/ . Старые темы, во избежание дальнейшего к ним цепляния, закрыты.
Модератор[/mod2]