1. напишите программу, которая выводит значение порядкового номера этого значения. 2. напишите программу, которая подсчитывает количество элементов в массиве, равных 5. ,

1)
var a:array [1..100] of integer;
i,n,k:integer;
begin
readln(n); //количество элементов массива
for i:=1 to n do
read(a[i]); //ввод массива через пробел с клавиатуры
writeln;
readln(k); //ввод значения, номер которого будем искать
for i:=1 to n do
if a[i]=k then writeln(i) //поиск номера введенного элемента
end.
2)
var a:array [1..100] of integer;
i,n,s:integer;
begin
s:=0;
readln(n); //количество элементов массива
for i:=1 to n do
read(a[i]); //ввод массива через пробел с клавиатуры
writeln;
for i:=1 to n do
if a[i]=5 then s:=s+1; //подсчёт кол-ва элементов равнх 5
writeln(s)
end.

Var a,b,s,c,d:real;
begin
write('a, b: ');
readln(a,b);
write('c: ');
readln(c);
s:=2*(a+b);
writeln('Количество сетки: ',s:5:1,' м');
d:=a*b*c;
writeln('Количество минеральных удобрений: ',d:5:1,' кг');
end.

Пример:
a, b: 24 50
c: 2.5
Количество сетки: 148.0 м
Количество минеральных удобрений: 3000.0 кг

Или так (без ввода данных):
var a,b,s,c,d:real;
begin
a:=24;
b:=50;
c:=2.5;
s:=2*(a+b);
writeln('Количество сетки: ',s:5:1,' м');
d:=a*b*c;
writeln('Количество минеральных удобрений: ',d:5:1,' кг');
end.

Результат:
Количество сетки: 148.0 м
Количество минеральных удобрений: 3000.0 кг

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив 12x12 ***');
  var a:=MatrRandom(12,12,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('Строка, содержащая максимальный элемент');
  a.Row(a.ElementsWithIndexes.Select(e->(e[0],e[2]))
      .MaxBy(e->e[1])[0]).Println;
  Writeln('*** Итоговый массив 12x12 ***');
  foreach var i in Range(0,11,2) do
    a.SetRow(i,(a.Row(i).Sorted.ToArray));
   a.Println(4)
end.

Пример
*** Исходный массив 12x12 ***
  88 -26 -91 -74 -60  21  71  40  70  -1 -72  31
 -58 -66  49  -5 -22  67 -22 -78  46 -95 -82  25
   0  88 -51 -32 -52  22  70 -53  35  88 -14  37
 -13 -85 -97  12 -47  67  94 -62 -11 -27 -59 -34
  98  81  -9 -30  57  26 -74  84 -43 -16  26 -48
 -28   4  -7 -51  28  81  95 -46  47 -88 -92 -36
  65  66  68  78 -89  80 -64 -73  47  82 -31 -33
 -69   0 -11 -90  62   2 -19 -96 -12  51 -60  49
 -25  46   9   8 -23  87  18  86  73 -72   5  90
  58 -52  74 -24 -52  -1   4 -11 -65 -74 -82 -72
  -8  86  -8 -54  31 -95  75 -86  26 -80   3 -36
 -29  27  50  60 -36 -18  -6 -97  95  -2 -48  14

Строка, содержащая максимальный элемент
98 81 -9 -30 57 26 -74 84 -43 -16 26 -48
*** Итоговый массив 12x12 ***
 -91 -74 -72 -60 -26  -1  21  31  40  70  71  88
 -58 -66  49  -5 -22  67 -22 -78  46 -95 -82  25
 -53 -52 -51 -32 -14   0  22  35  37  70  88  88
 -13 -85 -97  12 -47  67  94 -62 -11 -27 -59 -34
 -74 -48 -43 -30 -16  -9  26  26  57  81  84  98
 -28   4  -7 -51  28  81  95 -46  47 -88 -92 -36
 -89 -73 -64 -33 -31  47  65  66  68  78  80  82
 -69   0 -11 -90  62   2 -19 -96 -12  51 -60  49
 -72 -25 -23   5   8   9  18  46  73  86  87  90
  58 -52  74 -24 -52  -1   4 -11 -65 -74 -82 -72
 -95 -86 -80 -54 -36  -8  -8   3  26  31  75  86
 -29  27  50  60 -36 -18  -6 -97  95  -2 -48  14