SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Hardip
два цикла - первый I от 1 до N-1 (N- размер массива A[])
второй цикл от I+1 до N
Код:
MinDiff := 0;
minI := 0;
minJ := 0;
for i:=1 to N-1 do
for j:=(i+1) to N do
if Abs(A[i]-A[j])<=MinDiff then begin
minI := i;
minJ := j;
MinDiff := Abs(A[i]-A[j]);
end;
WriteLn('Минамальная разность между элементами с индекасами',i:1,' и ',j:1,
' равна ',MinDiff);
|
Добавлено:
akaGM
Цитата: по-видимому, многих (микрософтов в том числе) тоже не учили делать проверки...
надо учиться делать с самого начала хорошо... |
Угу. Полностью согласен. Главное, чтобы человек (т.н. обучаемый программированию ;-)) понимал - что собственно проверяется и зачем. В реальной жизни/программе проверки ОБЯЗАТЕЛЬНЫ!
w00h00
Цитата:| Обычно в школах на уроке программирования проверок не делают |
Да. И исключительно для того, чтобы не забивать голову обучаемому. Для решения поставленной задачи, разумеется, проверки не нужны.
Хотя. помогал сыну приятелей с задачами на Pascal в университете, так препод потребовал, чтобы был контроль вводимых данных (вводятся числовые значения, если введено не число - чтобы выдавалось корректное сообщение и повторный запрос на ввод данных)... Так что - жизнь многообразна... ;-))
ВСЕХ С ПРАЗДНИКОМ ВЕСНЫ И ТРУДА!
А тех, кто помнит - ещё и
С ДНЕМ СОЛИДАРНОСТИ ТРУДЯЩИХСЯ!!
УРА, товарищи!!!
|
Там тесты всегда правильно подобраны
Для чего создавать отдельную тему, если спраивал тут (данный топик правильный). Читаем правила форума насчет дублей.
