Дан массив состоящий из 20 элементов веденных с клавиатуры найти количество пар соседних элементов разность между которыми равна 5.

примерно так

 

 

uses crt; var i,count: integer; a: array[1..20] of integer; beginrandomize; count: =0; for i: =1 to 20 do a[i]: =random(99)+1; for i: =1 to 20 do write(a[i],' '); for i: =1 to 20-1 dobegin if (a[i+1]-a[i]=5) then inc(count); end; writeln; writeln(' count = ', count); readln;

end.

// pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив 8x7 ***');   var a: =matrrandom(8,7,-99,99);   a.println(5); writeln(5*a.colcount*'-'); // исходный массив   // заменить все элементы первых трех столбцов на их квадраты   for var i: =0 to 2 do       a.setcol(i,a.col(i).select(x-> x*x).toarray);   writeln('*** после замены в 3х первых столбцах ***');     a.println(5); writeln(5*a.colcount*'-');   // вставить между средними строками первую строку   setlength(a,9,7);   for var i: =7 downto 4 do       a.setrow(i+1,a.row(i));   a.setrow(4,a.row(0));   writeln('*** после вставки первой строки в середину ***');     a.println(5); writeln(5*a.colcount*'-');   // удалить все столбцы, в которых 1-й элемент больше последнего   var d: =0;   for var i: =0 to 6 do       if a[0,i]> a[8,i] then d+=1       else           if d> 0 then a.setcol(i-d,a.col(i));   setlength(a,9,7-d);   writeln('*** после удаления столбцов ***');   a.println(5); writeln(5*a.colcount*'-');   // поменять местами первую и последнюю строку   a.swaprows(0,a.rowcount-1);   writeln('*** результирующий массив ***');   a.println(5) end. пример *** исходный массив 8x7 ***   -42    10  -92  -23    51  -50    31     62  -75    25  -37    87    -9    63   -99    67    61  -19  -27    17  -96   -45    -7    83  -34    33    35  -95     29    86  -85  -94    43  -89    63   -38    64  -93    55  -53  -56    98   -34  -20    34    -2  -89    92    85   -11    48  -75  -81  -38    73  -97 *** после замены в 3х первых столбцах ***   1764  100 8464  -23    51  -50    31   3844 5625  625  -37    87    -9    63   9801 4489 3721  -19  -27    17  -96   2025    49 6889  -34    33    35  -95   841 7396 7225  -94    43  -89    63   1444 4096 8649    55  -53  -56    98   1156  400 1156    -2  -89    92    85   121 2304 5625  -81  -38    73  -97 *** после вставки первой строки в середину ***   1764  100 8464  -23    51  -50    31   3844 5625  625  -37    87    -9    63   9801 4489 3721  -19  -27    17  -96   2025    49 6889  -34    33    35  -95   1764  100 8464  -23    51  -50    31   841 7396 7225  -94    43  -89    63   1444 4096 8649    55  -53  -56    98   1156  400 1156    -2  -89    92    85   121 2304 5625  -81  -38    73  -97 *** после удаления столбцов ***   100  -50   5625    -9   4489    17     49    35   100  -50   7396  -89   4096  -56   400    92   2304    73 *** результирующий массив ***   2304    73   5625    -9   4489    17     49    35   100  -50   7396  -89   4096  -56   400    92   100  -50