var a: array [1..100] of integer;
i,max,min: integer;
begin
for i:= 1 to 100 do
begin
a[i]:= random(50)-25;
write(a[i]:5);
end;
min:= a[1];
max:= a[1];
for i:= 1 to 100 do
begin
if a[i] > max then max:=a[i];
end;
for i:= 1 to 100 do
begin
if a[i] < min then min:=a[i];
end;
writeln;
writeln('min = ',min);
writeln('max = ',max);
writeln('min + max = ',min + max);
end.
Решение на картинке :)
Ответ: 229
_________
by DENDEX™ (буду благодарен за выбор как лучший)
Var s:string;
r:real;
i,j,n:integer;
begin r:=0;
readln(s);
for i:=1 to length(s) do begin n:=0; for j:=1 to length(s) do begin
if s[i]=s[j] then inc(n);
end;
r:=r+1/n;
end;
writeln('количество различных букв = ', r:1:0);
end.
2.
У дерева пихты длинна от 15 см до 30 см, а ширина от 4 см до 6 см