Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal]матрцы

Автор: madjaheda 6.5.2010, 21:32

Помогите плиз с задачкой!
В данной матрице В(7,3) вычислить наибольшие элементы с отрицательных элементов рядков, которые имеют парные индексы. Вывести найденные наибольшие элементы в виде массива.

Автор: madjaheda 7.5.2010, 11:54

Вот что сам смог, но что то не так)

program matrix;
uses crt;
const n=3; m=7;
var a:array[1..n,1..m] of integer;
max:array[1..n] of integer;
i,p,j:integer;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=100 - random(200);
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:3, ' ');
writeln('');
end;
writeln('-------------------------------');
for i:=1 to n do
begin
if i mod 2 = 0 then begin
for j:=1 to m do
if a[i,j]<0 then begin
if a[i,j]>max[i] then begin max[i]:=a[i,j]; p:=i;
end; end; end; end;
writeln('max[i]=',max[i]);
writeln('p=',p);
readln;
end.

Автор: madjaheda 8.5.2010, 14:58

аааааааауууууууу есь кто знает???

Автор: madjaheda 13.5.2010, 21:36

плиз хелп, прога актуальна еще!!!