1. Дан массив из 20 элементов, принимающих значения от 0 до 50. Найти количество элементов, больших 25 и сумму элементов, меньших 25. 2. Найти в массиве наибольший элемент и поменять его местами с первым элементом.
More Questions From This User See All
Answers & Comments
или это
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.
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;
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.