![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
18192123 |
![]()
Сообщение
#1
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 920 Пол: Женский Реальное имя: Марина Репутация: ![]() ![]() ![]() |
сформировать вектор, содержащий столбец матрицы с наименьшим количеством положительных элементов
program creat1;
uses crt;
const n=3;
type matr=array[1..n,1..n]of integer; vect=array[1..n]of integer;
procedure input(var a:matr);
var i,j:1..n;
begin
writeln ('vvedite elementi');
for i:=1 to n do
for j:=1 to n do read (a[i,j]);
end;
procedure creat (a:matr; var s:vect);
var
i,j:1..n;
l,k:integer;
begin
for j:=1 to n do
begin
s[j]:=0;
k:=0;
for i:=1 to n do
begin
if a[i]>0 then k:=k+1;
s[j]:=s[j]+k;
end;
end;
min:=s[1];
l:=1;
for j:=2 to n do
if s[j]<min then l:=j;
for i:=1 to n do writeln (s[i,l],' ');
end;
var a;matr;
s:vect;
begin
clrscr;
input(a);
creat(a,s);
readkey;
end.
Сообщение отредактировано: 18192123 - 27.11.2006 19:20 |
![]() ![]() |
![]() |
Текстовая версия | 18.07.2025 1:08 |