Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите пжл!!! скоро сесия(((
Помогите пжл!!! скоро сесия(((
1. Дан двумерный массив А. Найдите К = (max + min)/2, где max – это наибольший элемент массива, а min – наименьший элемент массива. Найдите номера всех элементов массива, значение которых больше К.
2. Пусть дан одномерный массив А(10). Сформировать новый одномерный массив В(5), состоящий из элементов массива А, стоящих на четных местах. Отсортируйте массив В по возрастанию.
1 | Автор: Jereme | 2008-12-25, 13:17 | Изменено: Jereme - Чт, 2008-12-25, 13:18   |  Репутация: [ + 0 ]
1)
***{заполнение масива}
max:=a[1];
min:=a[1];
For i:=1 to n do {n,m -размерность масива}
for j:=1 to m do
begin
if max<a[i,j] then
max:=a[i,j];
if min>a[i,j] then
min:=a[i,j]
end;
k:=(max + min)/2;
writeln(k,' ');
For i:=1 to n do
for j:=1 to m do
if a[i,j]>k then
write(i,' ',j,' ');
***


я все понимаю...
2 | Автор: flin | 2008-12-25, 20:06   |  Репутация: [ + 8 ]
flin - молодец ! ! ! !
3 | Автор: admin | 2008-12-25, 22:21   |  Репутация: [ + 21 ]
3 | Автор: admin | 2008-12-25, 22:21   |  Репутация: [ + 21 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите пжл!!! скоро сесия(((
Страница 1 из 11
Поиск: