Задание 5 получается D$2+$E5 =410
Билл из Гравити Фолз пожирает оленя
1.
var k:integer;
p,p1:string;
begin
k:=5;
write ('Введите пароль: ');
readln(p);
while k>=1 do
begin
write ('Подтвердите пароль: ');
readln(p1);
if p=p1 then
begin
writeln ('Вход в систему разрешен');
k:=0
end
else
k:=k-1
end
end.
2.
var a,s:integer;
begin
write ('Введите число: ');
readln(a);
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10
end;
write ('Сумма цифр: ',s);
end.
Program al;
var a: array[1..32000] of integer;
buf:integer;
i,n,min,max:integer;
begin
writeln('n=');
readln(n);
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
min:=1;
max:=1;
for i:=2 to n do
begin
if a[min]>a[i] then
min:=i;
if a[max]<a[i] then
max:=i;
end;
buf:=a[min];
a[min]:=a[max];
a[max]:=buf;
writeln('Massiv posle obmena max<->min');
for i:=1 to n do
write(a[i]:4);
writeln;<span>
end.</span>