Матрица

15K

15 декабря 2005 года

2 / / 15.12.2005

Очень прошу о помощи - я лежала в больнице почти месяц...Выписалась и тут дали здание,надо срочно сделть,а я даже не успею прочитать как это делается=(((((((((((((Помогите!!!!!Очень прошу.

1)Вводится длина вектора и значения его элементов.Все элементы, меньшие заданного значения, и их номера записать в новые векторы.

2)Ввести размерность матрицы и значения ее элементов. Построить вектор В, где В(i) - максимальное значение в i-ом столбце.

3)Вторую задачу СДЕЛАТЬ В ВИДЕ МЕНЮ.

1. Ввод данных
2. Ввод массива
3. <задание по лабе>
4. ....
0. Выход

после нажатия цифры на клавиатуре я должна перейти к указанному действию, после выполнения которого вернуться в меню.

Подписаться на вопросНеобходима регистрация

По порядку

Сначала полезные

Сначала решения

3 ответа

0 спам

269

17 декабря 2005 года

Greenering

892 / / 04.02.2003

Цитата:

Originally posted by Roberta

2)Ввести размерность матрицы и значения ее элементов. Построить вектор В, где В(i) - максимальное значение в i-ом столбце.

Свернуть исходник

Код:

var

a:array[1..100,1..100] of integer;

v:array[1..100] of integer;

i,j,,max,n:integer;

Begin

randomize;

writeln('Vvedete razmer matrix ');

write('N='); readln(n);

For i:=1 to n do

for j:=1 to n do

a[i,j]:=random(9);

For i:=1 to n do begin

for j:=1 to n do

write(a[i,j]:3);

writeln;

End;

For i:=1 to n do begin

max:=0;

for j:=1 to n do

if a[i,j]>max then max:=a[i,j];

v:=max;

end;

writeln('Vector=');

for j:=1 to n do

writeln(v[j]);

readln;

end.

Цитировать

0 спам

15K

17 декабря 2005 года

Roberta

2 / / 15.12.2005

Цитата:

Originally posted by Greenering
Свернуть исходник

Код:

var
a:array[1..100,1..100] of integer;
v:array[1..100] of integer;
i,j,,max,n:integer;
Begin
randomize;
writeln('Vvedete razmer matrix ');
write('N='); readln(n);
For i:=1 to n do
for j:=1 to n do
a[i,j]:=random(9);

For i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
End;

For i:=1 to n do begin
max:=0;
for j:=1 to n do
if a[i,j]>max then max:=a[i,j];
v:=max;
end;
writeln('Vector=');
for j:=1 to n do
writeln(v[j]);
readln;
end.