1) Для чего нужна среда лазарус? Для чего программа помпиратор? Развёрнуто. 2) Что означают значения свойств Top, Left, Name,Color, Text, Enable, Visible? 3) Как выглядит блок- схема цикла с пред условием? Пример.
Var a:array[1..5] of integer; i,Max,c,n,f:integer; procedure ho; begin if a[i]>Max then begin Max:=a[i]; c:=i; end; end;
begin for i:=1 to 5 do begin a[i]:= random(15)+2; write(a[i],' '); end; Max:=a[1]; c:=1; for i:=1 to 5 do ho; writeln; writeln('Максимум: ',max); f:=c; if f=1 then begin max:=a[2]; for i:=2 to 5 do ho; writeln('Вторичный максимум: ',max); exit; end; if f<5 then begin Max:=a[f+1]; for i:=f+1 to 5 do ho; n:=max; end; if f>1 then begin Max:=a[1]; c:=f; for i:=1 to c-1 do ho; if max>n then writeln('Вторичный максимумì: ',max); if max<n then writeln('Вторичный максимум: ',n); end; end.
Напишите программу, которая выбирает максимальное и минимальное из пяти введённых чисел.3.напишите программу, которая определяет, верно ли, что введённое число – трёхзначное.4.напишите программу, которая вводит номер месяца и выводит название времени года.оператор выбора использовать не разрешается. при вводе неверного номера месяца долж‐но быть выведено сообщение об ошибке.5.решите предыдущую с оператора выбора.6.напишите программу, которая вводит с клавиатуры номер месяца и определяет, сколько дней в этом месяце. при вводе неверного номера месяца должно быть выведено сообще‐ние об ошибке.7.напишите программу, которая вводит с клавиатуры номер месяца и день, и определяет,сколько дней осталось до нового года. при вводе неверных данных должно быть выведено сообщение об ошибке.8.напишите программу, которая вводит возраст человека (целое число, не превышающее 120)и выводит этот возраст со словом «год»,«года» или «лет». например,«21 год»,«22 года»,«25 лет».9.напишите программу, которая вводит целое число, не превышающее 100, и выводит его прописью, например,21→«двадцать оди
a:array[1..5] of integer;
i,Max,c,n,f:integer;
procedure ho;
begin
if a[i]>Max then
begin
Max:=a[i];
c:=i;
end;
end;
begin
for i:=1 to 5 do
begin
a[i]:= random(15)+2;
write(a[i],' ');
end;
Max:=a[1];
c:=1;
for i:=1 to 5 do
ho;
writeln;
writeln('Максимум: ',max);
f:=c;
if f=1 then
begin
max:=a[2];
for i:=2 to 5 do
ho;
writeln('Вторичный максимум: ',max); exit;
end;
if f<5 then
begin
Max:=a[f+1];
for i:=f+1 to 5 do
ho;
n:=max;
end;
if f>1 then
begin
Max:=a[1];
c:=f;
for i:=1 to c-1 do
ho;
if max>n then
writeln('Вторичный максимумì: ',max);
if max<n then
writeln('Вторичный максимум: ',n);
end;
end.