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

Question

Информатика

Менуа

27 октября, 20:55

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

+3

Ответы (1)

Знаете ответ на вопрос?

Фаухи · 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.