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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 14.12.2009, 00:07   #1
Анюта)
Пользователь
 
Регистрация: 05.12.2009
Сообщений: 12
Восклицание TPascal матрицы(

сама понимаю, легко, но что-то не получается...


Найти номер максимального элемента таблицы а[1..10]
да глупая!
Анюта) вне форума Ответить с цитированием
Старый 14.12.2009, 00:21   #2
.Phoenix
Форумчанин
 
Регистрация: 02.04.2009
Сообщений: 235
По умолчанию

Код:
var a: array[1..10]  of integer;
max,i,poz: integer;
begin
max:=-32768;
for i:=1 to 10 do
begin
readln(a[i]);
if a[i]>max then
begin
max:=a[i];
poz:=i;
end;
end;
writeln(poz);
readln;
Цитата:
да глупая!
Ты просто себя не дооцениваешь.
Всё гениальное - просто!
.Phoenix вне форума Ответить с цитированием
Старый 14.12.2009, 00:40   #3
Анюта)
Пользователь
 
Регистрация: 05.12.2009
Сообщений: 12
По умолчанию

спасибо))))))))
Анюта) вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
TurboPascal: графы, матрицы смежности и матрицы инцидентности. ulala Помощь студентам 1 03.03.2011 19:28
TPascal 7.1. Анимация на спрайтах. Destrall Помощь студентам 1 16.10.2009 20:11
Writeln в TPascal VadEr Помощь студентам 8 13.05.2009 15:12
Простые програмки на TPascal cL1zMa Помощь студентам 9 13.06.2007 16:32