//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)
var
n:integer;
a:array[1..100] of integer;
begin
write('Введите размер массива (n<100): ');readln(n);
var max:=0;
var min:=101;
for var i:=1 to n do
begin
a[i]:=random(0,100);
write(a[i],' ');
if i mod 2=1 then
if a[i]>max then max:=a[i]
else
if a[i]<min then min:=a[i];
end;
writeln;
writeln('Максимальный - ',max);
writeln('Минимальный - ',min);
writeln('Cумма максимального и минимального - ',max+min);
readln;
end.
Пример:
Введите размер массива (n<100): 10
22 6 51 84 46 66 10 36 14 52 // рандомная генерация
Максимальный - 51
Минимальный - 10
Cумма максимального и минимального - 61
Вася звонит Пете, но у Пети может быть занята линия
Pascal
Алгоритм1
var
s : string;
n1,n2 : integer;
i,l : integer;
begin
readln (s);
n1 := 0; n2 := 0;
l := Length(s);
for i := 1 to l do
if (s[i] = ' ') then
if n1 = 0 then
n1 := i
else
n2 := i;
if n2 = 0 then
s := ' '
else
s := copy(s,n1+1,n2-n1-1);
writeln (s);<span>
end.
Алгоритм2
var
s : string;
n1,n2 : integer;
i,l : integer;
r : boolean;
begin
readln (s);
n1 := 0; n2 := 0;
r := false;
l := Length(s);
i := 1;
While (i<=l) and (not r) do
begin
if s[i] = ' ' then
begin
n1 := i;
r := true;
end;
i := i +1;
end;
r :=false;
i := l;
While (i>0) and (not r) do
begin
if s[i] = ' ' then
begin
n2 := i;
r := true;
end;
i := i -1;
end;
if n2 = n1 then
s := ' '
else
s := copy(s,n1+1,n2-n1-1);
writeln (s);<span>
end.</span></span>
00111001(2) - в старшем разряде 0, следовательно, число положительное. 00111001(2) = 2^5+2^4+2^3+2^0 = 32+16+8+1 = 57(10)
Var
i, n, s, t: integer;
begin
Read(n);
s:=0;
for i := 1 to n do begin Read(t); s := s + t end;
Writeln(s)
end.