задачa на integer в паскале.

[Crabsid]

Вводится 17 чисел. Найти разность пятого и шестого введенных чисел.

[Stilet]

и? В чем сложность?

[dekameron]

Сообщение от Stilet

и? В чем сложность?

Скорей всего в том, что автор понятия не имеет, как написать элементарнейшую программу типа hello world ))

PROGRAM zzz
VAR
 i,j,k:integer;
BEGIN
for i:=1 to 17 do
 begin
  write('Vvedite ',i,' 4islo');
  readln(j);
  if i=5 then k:=j
  else if i=6 then k:=abs(k-j); 
 end;
writeln('Raznica=',k);
{Naxren massiv, esli nado tolko 2 fix 4isla :)}
END.

[Косюра]

можно было бы поизвращаться и в константу запихнуть все числа.
N= 17, Q=5, W=6 ))
Или вообще их вводить. Но зачем? ))

[dekameron]

Проще было бы читать из консоли только 2 числа, предполагаемые 5 и 6 в массиве, но задача ведь была поставлена именно с 17 )

[_-Re@l-_]

А чё? Массивом уже не модно?

Uses CRT;
Var 
      A:array[1..17] of Integer;
      i:Integer;
Begin
        Clrscr;
        For I:=1 To 17 Do
        Begin
               Write('A[',i,'] = ');
               Readln(A[i]);
        End;
        Write('A[6] - A[5] = ',A[6]-A[5]);
        Readln;
End.

Как по-моему, так гораздо красивей. И не нужны никакие if.

[Wild_klas]

Да, через массив как-то получше будет

[Косюра]

Декамерон же написал комментарий:

{Naxren massiv, esli nado tolko 2 fix 4isla }

И прав блин. А вообще задача глупая.
Создать бы FAQ по самым элементарным вещам, да отправлять их туда с ТАКИМИ "тяжелыми" задачами

[_-Re@l-_]

Косюра, вы учтите, что его программа будет работать гораздо дольше, чем моя, потому как в его программе будет выполняться 33 операции сравнения, да плюс ещё одна операция модуля. Да ещё и синтаксическая ошибка есть.
Однако моя программа тратит больше памяти(а точнее на 28 байт больше, и это существенная разница), но в школьном и студенческом курсе информатики скорость куда важнее, чем количество затраченной памяти.

[Stilet]

Прекращайте спорить. Ответ дан.
Я вообще не пойму зачем все 17 чисел вводить, если нужно только два...
Задача явно на массивы.