Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.04.2010, 06:34   #1
AndrewPl
Пользователь
 
Регистрация: 23.04.2010
Сообщений: 52
По умолчанию Работа с массивами(паскаль)

сформировать массив с произведения отрицательных элементов каждого столба матрицы А(5,5).В одномерном массиве найти минимальный элемент и его индекс.Вывести сформирован массив,минимальный элемент и его индекс.
AndrewPl вне форума Ответить с цитированием
Старый 27.04.2010, 07:21   #2
Филантроп
Форумчанин
 
Аватар для Филантроп
 
Регистрация: 12.04.2010
Сообщений: 134
По умолчанию

Код:
var  a:array[1..5] of integer;
c:array[1..5,1..5] of integer;
p:integer;
i,j:integer ;
begin
randomize;
writeln('=======Matrix====');
for i:=1 to 5 do
begin
for j:=1 to 5 do begin
c[i,j]:=random(31)-10;
write(c[i,j]:5);end;
writeln;
end;

for j:=1 to 5 do begin
a[j]:=1;
for i:=1 to 5 do
if c[i,j]<0 then a[j]:=a[j]*c[i,j]; end;
writeln;
writeln('MaccuB');
for i:=1 to 5 do begin
write(a[i]:5);end;
p:=1;
for i:=1 to 5 do
if a[i]<a[p] then p:=i;
writeln;
writeln('min=a[',p,']=',a[p]);
readln;
end.
кому нужна помощь! жду в аське и скайпе!
Филантроп вне форума Ответить с цитированием
Старый 27.04.2010, 07:50   #3
AndrewPl
Пользователь
 
Регистрация: 23.04.2010
Сообщений: 52
По умолчанию

спасибо,слушай,я тут новенький,и не совсем понимаю куда с этим:
"Для благодарностей
Webmoney: R455217280298
ЯД:41001591942161 "....
AndrewPl вне форума Ответить с цитированием
Старый 27.04.2010, 08:11   #4
Филантроп
Форумчанин
 
Аватар для Филантроп
 
Регистрация: 12.04.2010
Сообщений: 134
По умолчанию

Цитата:
куда с этим:
идем к ближайшему терминалу (фигня для приема платежей)
выбираем там webmoney
вбиваем № кошелька R455217280298
ложим денюжку - сколько не жалко и все)))
кому нужна помощь! жду в аське и скайпе!
Филантроп вне форума Ответить с цитированием
Старый 27.04.2010, 08:11   #5
Филантроп
Форумчанин
 
Аватар для Филантроп
 
Регистрация: 12.04.2010
Сообщений: 134
По умолчанию

10 символов!!!
кому нужна помощь! жду в аське и скайпе!

Последний раз редактировалось Филантроп; 27.04.2010 в 08:13. Причина: удалите пост пожалуйста!
Филантроп вне форума Ответить с цитированием
Старый 27.04.2010, 08:34   #6
AndrewPl
Пользователь
 
Регистрация: 23.04.2010
Сообщений: 52
По умолчанию

Цитата:
Сообщение от Филантроп Посмотреть сообщение
идем к ближайшему терминалу (фигня для приема платежей)
выбираем там webmoney
вбиваем № кошелька R455217280298
ложим денюжку - сколько не жалко и все)))
ок)))))положу)))
AndrewPl вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с одномерными массивами (Паскаль). Theory Помощь студентам 1 14.12.2009 21:58
Работа с массивами. Паскаль hoangvu2005 Помощь студентам 3 10.04.2009 23:05
Паскаль.Работа с массивами NightFire Помощь студентам 3 28.03.2009 22:25
Паскаль. Работа с массивами... deceiver Помощь студентам 5 24.03.2009 04:27