Господи Наибольший элемент 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.