![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Анна |
![]() ![]()
Сообщение
#1
|
![]() Бывалая ![]() ![]() ![]() Группа: Пользователи Сообщений: 290 Пол: Женский Реальное имя: Анютка Репутация: ![]() ![]() ![]() |
Программа выводит на экран наибольшую разность между парами элементов массива.
Как на экран вывести эту пару? program mass6(input,output);
uses crt;
var a: array[1..4] of real;
n,i,j,k:integer;
max:real;
el1,el2:integer;
begin
n:=4;
randomize;
for i:=1 to n do begin
a[i]:=random(10);
end;
clrscr;
writeln;
writeln('Исходный массив: ');
for i:=1 to n do
write(a[i]:5:0);
writeln;
max:=A[1]-A[2];
for j:=1 to n do begin
for k:=1 to n do begin
if max < A[j]-A[k] then max:=A[j]-A[k];
writeln('********************');
writeln(a[j]:5:0,a[k]:5:0);
end;
end;
write('naibolshaya raznost =');
writeln(max:2:0);
write('para elementov : ');
{???}
readln;
end.
|
![]() ![]() |
compiler |
![]()
Сообщение
#2
|
Человек ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 050 Пол: Мужской Реальное имя: Станислав Репутация: ![]() ![]() ![]() |
может както так...
{...}
el1,el2:real;
{...}
if max < A[j]-A[k] then begin
el1:=A[j]; el2:=A[k];
max:= A[j]-A[k];
end;
{...}
write('para elementov : ', el1, el2);
{...}
ЗЫ а куда ты все это выводишь ? Сообщение отредактировано: compiler - 6.06.2007 19:38 -------------------- Спасибо!
Удачи! |
Анна |
![]()
Сообщение
#3
|
![]() Бывалая ![]() ![]() ![]() Группа: Пользователи Сообщений: 290 Пол: Женский Реальное имя: Анютка Репутация: ![]() ![]() ![]() |
На экран ))
|
compiler |
![]()
Сообщение
#4
|
Человек ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 050 Пол: Мужской Реальное имя: Станислав Репутация: ![]() ![]() ![]() |
-------------------- Спасибо!
Удачи! |
compiler |
![]()
Сообщение
#5
|
Человек ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 050 Пол: Мужской Реальное имя: Станислав Репутация: ![]() ![]() ![]() |
и еще если у тебя массив вещественных чисел то вместо
a[i]:=random(10);
пиши
a[i]:=random(10)+random;
, для добавления дробной части... или уже объявляй вектор целых чисел-------------------- Спасибо!
Удачи! |
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 1:01 |