Вопрос № 82872: Дан массив чисел длинной n в этом массиве найти наибольшее и наименьшее значение.. переставить наименьшее значение на первую позицию а наибольшее на последнюю.....Вопрос № 82873: второй раз уже прошу помощи с этой задачкой!!!
просто первый текст программы не заработал...
если есть возможность, напишите пожалуйста полный текст программы и проверьте её работу, просто я на самом деле чайник..)) помогите плиз... предлож...
Вопрос № 82.872
Дан массив чисел длинной n в этом массиве найти наибольшее и наименьшее значение.. переставить наименьшее значение на первую позицию а наибольшее на последнюю..
Отвечает: MaksimDenisov
Здравствуйте, Антон Ульянов!
program sort;
var
a: aray [1..n] of integer; # вместо n - число элементов, вместо integer - тип значений элементов массива
max, min: integer; #если тип элементов массива другой - исправить integer на нужный тип
i: integer;
begin
max:=a[1]; min:=a[1]; #предполагаем что массив начинается с первого элемента
for i:=2 to n do begin
if a[i] > max then begin #ищем максимальный элемент
max := a[i]; #запоминаем его
end;
if a[i] < min then begin #ищем минимальный элемент
min := a[i]; #запоминаем его
end;
end;
a[1] := min; # присваиваем первому элементу минимальный элемент
a[n] := max; # а последнему - максимальный
end.
Ответ отправил: MaksimDenisov (статус: 4-ый класс)
Ответ отправлен: 16.04.2007, 23:29 Оценка за ответ: 5
Отвечает: Gh0stik
Здравствуйте, Антон Ульянов!
Вот решение:
const m=10;
var ms:array [1..m] of integer;
t,i,mxi,mni:integer;
begin
randomize;
for i:=1 to m do
begin
ms[i]:=random(101); write(ms[i]:4);{генерируем массив из случайных чисел}
end;
mxi:=1; mni:=1;{будем запоминать только индексы минимального и максимольного}
for i:=1 to m do {ищем индексы минимального и максимального}
begin
if ms[i]
if ms[i]>ms[mxi] then mxi:=i;
end;
t:=ms[1]; ms[1]:=ms[mni]; ms[mni]:=t; {меняем местами элементы в соответствии с задачей}
t:=ms[m]; ms[m]:=ms[mxi]; ms[mxi]:=t;
writeln;
for i:=1 to m do write(ms[i]:4); {выводим новый видоизмененный массив}
writeln;
readln
end.
Good Luck!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессионал) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 16.04.2007, 23:38
Вопрос № 82.873
второй раз уже прошу помощи с этой задачкой!!!
просто первый текст программы не заработал...
если есть возможность, напишите пожалуйста полный текст программы и проверьте её работу, просто я на самом деле чайник..)) помогите плиз... предложенный ранее текст программы я выложил ниже...
Задача:
Дана матрица размерности m*n. Определить строку и столбец матрицы, обладающие следующими свойствами: сумма модулей элементов является максимальной среди всех столбцов и строк!
Отвечает: MaksimDenisov
Здравствуйте, Антон Ульянов!
Попробуйте так:
Program matrix;
var
.........
sum:=0;str_max:=0;stl_max:=0;
for i:=1 to m do begin
for j:=1 to n o begin
sum:=sum+abs(a[i,j]);
end;
if sum > max then str_max:=i;
end;
for j:=1 to n do begin
for i:=1 to m do begin
sum := sum + abs(a[i,j]);
end;
if sum > max then stl_max:=j;
end;
Ответ отправил: MaksimDenisov (статус: 4-ый класс)
Ответ отправлен: 16.04.2007, 23:42 Оценка за ответ: 5 Комментарий оценки: спасибо))
Отвечает: Gh0stik
Здравствуйте, Антон Ульянов!
Позволил себе реализовать нахождение индексов с максимальными суммами через функции, в приложении смотрите код.
Good Luck!!!
Приложение:
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессионал) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 17.04.2007, 00:01 Оценка за ответ: 5 Комментарий оценки: Спасибо большое.. программа хорошо работает... не знаю что бы делал без вас))
