Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Похоже на приоритетное меню для выбора носителя, чтобы продолжить установку
program p;
vara,b,c,i,j,n : integer;
beginwriteln('введите три числа'); readln(a,b,c);
if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);
readln; end.
если массив состоит из 10 элементов то код программы:
const
n=10;
var
a: array[1..n] of integer;
i,min: integer;
begin
for i: =1 to n do read(a[i]); {вводишь заданный массив}
min: =32767;
for i: =1 to n do
if a[i]< min then min: =a[i];
write(min);
end;
Популярные вопросы