Question

Господи Наибольший элемент a[', max, ']=', a[max])
end.

Переделайте данную программу так, чтобы она находила наименьший элемент массива.

2 )

program element;
var x, i, n: integer;
a: array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(100);
writeln (a[i]);
end;
write(‘Введите искомое число = ‘); read(x);
for i:=1 to 10 do
if a[i]=x then n:=i;
if n=0 then write(‘Этого числа нет')
else write(‘Номер элемента = ‘,n)
end.

Переделайте эту программу так,
чтобы она по заданному номеру
выводила значение элемент
массива.

3 )

Напишите программу, которая в одномерном массиве из
1000 элементов считает количество и сумму элементов
больших значения 50.