VPF::Увеличение на найденный max - Форум программистов

g1pn0z

Дата 17.5.2007, 16:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 29.4.2007

Репутация: нет
Всего: нет

В условии надо увеличить значение матрицы......

Код


program z  ;
uses crt;
const n=4;
m=3;
var   a:array[1..n,1..m] of integer;
i,j,max:integer;
begin
clrscr;
randomize;
max:=a[1,1];
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(79)-10;
writeln(a[i,j]);
end;
end;
if max<a[i,j] then max:=a[i,j];
a[i,j]:=a[i,j]+max;{правильно ли происходит увеличение элемента на найденно мах значение}
writeln(max);
readln;
end.

Rodman

Дата 17.5.2007, 16:42 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122

по конкретнее, по какому условия и что должно происходить?

ты работаешь с массивами, а значит и с циклами, а вот

Код


if max<a[i,j] then max:=a[i,j];
a[i,j]:=a[i,j]+max;{правильно ли происходит увеличение элемента на найденно мах значение}
writeln(max);

не в цикле, т.е. j,i не определены...

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Misha_White

Дата 21.5.2007, 14:00 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 207
Регистрация: 25.4.2007
Где: Кодинск

Репутация: нет
Всего: 1

g1pn0z,

Код


program z  ;
uses crt;
const n=4;
m=3;
var   a:array[1..n,1..m] of integer;
i,j,max:integer;
begin
clrscr;
randomize;
max:=a[1,1];
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(79)-10;
writeln(a[i,j]);
end;
end;
max:=a[1,1];
for i:=1 to n do
 for j:=1 to m do
   if max<a[i,j] then 
      max:=a[i,j];
for i:=1 to n do
 for j:=1 to m do
    a[i,j]:=a[i,j]+max;
writeln(max);
readln;
end.

Это сообщение отредактировал(а) Misha_White - 21.5.2007, 14:00

--------------------

Я не волшебник... я только учусь...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »