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.

Answer 2

Или вот это
var
a:array[1..MaxM] of real;
temp,i,max:real;
M:integer;

Answer 3

Вот вот вот стой стой блин ошибся

Const N = 25;
Var m:array [1..N] of integer; i,S,k:integer;
begin
randomize;
for i:=1 to N do
m[i]:= random(50);
S:=0; k:=0;
for i:=1 to N do
if m[i] mod 2 =0 then begin
S:=S+m[i]; inc(k); end;
writeln('Summa= ',S,' kol-vo = ',k);
readln;
end.

Answer 4

Спасибо тебе