Missy
Ну, поскольку тут нет аналогичных операций, всё-таки чем-то они да отличаются, то в процедуру убрать половину программы врядли получиться, хотя, у меня наверна просто не хватает опыта для этого...)))

даа.Вот насчет массивов.Как я поняла,составить один массив,в котором будут элементы равные суммам элементов каждой четной строки матрицы,и другой с элементами равными суммам элементов каждого нечетного столбца матрицы.

Спасибо большое.Только вот,может,ее можно и короче сделать?А задачу нам из учебника по лабам дали,там должно быть все правильно наверно...

АДМИНУ: ну, мне кажется задание интерпретированно немного не так...вот, как мне кажется правильный вариант: "Найти сумму одномерных массивов, состоящих из элементов чтных строк и элементов нечётных столбцов"

Missy...вот, посмотри не так ли???
program matritsa;
uses crt;
type matr=array [1..6,1..9] of integer;
mas=array [1..30] of integer;
var i,j,k,n,S1,S2:integer; A:matr; X:mas; Y:mas;
begin
clrscr;
{-----Задание матрицы и её распечатка-----}
for i:=1 to 6 do
for j:=1 to 9 do
A[i,j]:=random(99);
writeln (''Matritsa A:'');
for i:=1 to 6 do
begin
for j:=1 to 9 do
write (A[i,j]:4);
writeln;
end;
writeln;
{-----Вычисление суммы элементов четных строк-----}
k:=0;
for i:=1 to 6 do
if i mod 2=0 then
begin
for j:=1 to 9 do
begin
k:=k+1;
X[k]:=A[i,j];
end;
end;
writeln (''Kolichestvo elementov v massive X: k='',k:3);
writeln (''Massiv X:'');
for k:=1 to k do
write (X[k]:3,''; '');
writeln;
S1:=0;
for k:=1 to k do
S1:=S1+X[k];
writeln (''Summa elementov massiva X: S='',S1:3);
writeln;
{-----Вычисление суммы элементов нечётных столбцов строк-----}
n:=0;
for j:=1 to 9 do
if j mod 2<>0 then
begin
for i:=1 to 6 do
begin
n:=n+1;
Y[n]:=A[i,j];
end;
end;
writeln (''Kolichestvo elementov v massive Y: n='',n:3);
writeln (''Massiv Y:'');
for n:=1 to n do
write (Y[n]:3,''; '');
writeln;
S2:=0;
for k:=1 to n do
S2:=S2+Y[n];
writeln (''Summa elementov massiva Y: S='',S2:3);
writeln;
writeln (''***Nazmite lubuy klavishu***'');
repeat until keypressed;
end.

Большое вам thx за ваш сайт

Помогите,пожалуйста написать программу!!Дико нужно сдать ее преподу,а я не понимаю,как ее сделать:
"Дана целочисленная матрица размера 6 х 9. Сформировать одномерные массивы, состоящие из сумм элементов четных строк и неченых столбцов матрицы".

Буду премного благодарна.=) ICQ 340108774

Метод простой итерации осилил, метод хорд и метод Ньютона тоже, но, возникла проблема с методом Зейделя...постоянно вылетает "Операция с плавающей точкой"!!!
Мне кажется, что ошибка где-то в цикле...не могли бы ли Вы выложить этот метод для системы из двух нелинейных уравнений, если он у вас имеется в библиотеке.

Уважаемый Pink_panther Напиши мне на мыло или в Аську Я уже писал таки проги, они очень простые и не чего сверх естественного там нету, короче пиши мне ghiter@rambler.ru ICQ 208-152-850

Пожалуйста помогите!!! Любые программы на арифмитическую и геометрическую прогрессию и на ряд чисел Фибоначче. А еще: составить программу в Паскале, если условие задачи такое: банк выдал кредит на 10 лет; ставка вознаграждения 15%;сумма кредита -10000у.е.

Люди!Не могли бы вы мне помочь? Мне нужно написать программу в Паскале на арифмитическую и геометрческую прогрессии, а также на ряд чисел Фибоначчи. Очень прошу мне помочь как можно быстрее.Спасибо.

Есть такая подпрограмка в разделе "Сортировка записей"
Перед концом есть такая строчка:
if l if l end;
Хотелось бы услышать ответ поскольку BP7 ругается.

Хочу получить отзыв о своем сайте.
В Гостевую или по почте.
Приглашаю на сайт!

Нужна прога которая упорядочивает цифры в строках
матрицы по возрастанию.
Помогите PLZ!!!!!!!

Здрасте...
Не подскажете как создать световое меню в Паскале...
Спасибо...