Версия для печати темы

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

Форум «Всё о Паскале» _ Задачи _ Массивы

Автор: Vik@ 23.03.2007 16:03

Помогите с задачей!

Автор: St@senk@ 23.03.2007 16:17

Боюсь я чего-то качать этот архив со странным именем. Можешь рассказать задачу?

Добавлено через 9 мин.

const xl=3;
yl=3;
var matr : array [1..xl,1..yl] of integer;
var maxlong,id,long,i,j : integer;
begin
maxlong:=0;
id:=1;
for i:= 1 to yl do
for j:= 1 to xl do
read(matr[j,i]);
for i:= 2 to yl do begin
long:=0;
for j:= 1 to xl do
long:= long+abs(matr[j,i])*abs(matr[j,1]);
if long>=maxlong then begin
maxlong:=long;
id:=i;
end;
end;
write(id);
readln;
end.


Если я правильно все понял, то вот решение.

Автор: klem4 24.03.2007 22:53

St@senk@, странное название архива скорее всего из-за наличия символов кириллицы в его названии yes2.gif

Автор: St@senk@ 24.03.2007 23:38

Спасибо, что объяснил smile.gif теперь сам на этом не попадусь smile.gif

Автор: мисс_граффити 25.03.2007 0:07

В странном архиве был doc - документ. Поэтому, в соответствии с правилами, он удален.