Question

1. Дан массив из 20 элементов, принимающих значения от 0 до 50. Найти количество элементов, больших 25 и сумму элементов, меньших 25. 2. Найти в массиве наибольший элемент и поменять его местами с первым элементом.

Answer 1

или это

const  

 MaxM=100;

var

 a:array[1..MaxM] of real;

 temp,i,max:real;

begin

 readln(M);

 for i := 1 to m do

   read(a[i]);

 readln;

 max:=a[1];

 for i:= 1 to m do

   if a[i]>max then  

   begin  

     max :=a[i];

     temp:=i;

   end;

  a[temp]:=a[1];

  a[1]:=max;  

end.