Помогите, пожалуйста, решить задачу в Pascal!

Question

Пользователь вводит размерность массива и его элементы. Найти в массиве позицию максимального элемента и вывести ее на экран. Вычислить в массиве все однозначные элементы на 10. Вывести полученный массив на экран. Найти первый элемент кратный 5

kublen · Accepted Answer

вот похожая, примени
program massiv;
uses crt;
var
i,n,min:integer;
b:array[1..100] of integer;
BEGIN
randomize;
clrscr;
writeln;
write('Vvesti N: ');
readln(n);
writeln('Vektor B: ');
for i:=1 to n do begin
b[i]:=random(11)+20; write(b[i]:3);
end;
min:=b[1];
for i:=2 to n do
if b[i]<min then min:=b[i];
writeln;
writeln('min= ',min);
readln;
end.