<имя массива>:= array [<кол-во элементов>] of <тип>;
Минимальный элемент?
95
for i:=1 to 10 do begin
a[i]:=random(30);
writeln (‘введите’,i, ‘элемент массива=’, a[i]);
end;
min:=a[1];
for i:=2 to 10 do begin
if a[i] writeln(‘min=’,min); begin
readln;
end.
randomize;
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть