1. Дан массив из 20 элементов, принимающих значения от 0 до 50. Найти количество...

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.

Comments

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

---

Вот вот вот стой стой блин ошибсяConst N = 25;Var m:array [1..N] of integer; i,S,k:integer;beginrandomize;for i:=1 to N dom[i]:= random(50);S:=0; k:=0;for i:=1 to N doif m[i] mod 2 =0 then beginS:=S+m[i]; inc(k); end;writeln('Summa= ',S,' kol-vo = ',k);readln;end.

---

Спасибо тебе