Pascal
var
s : string = 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';
i : integer;
s1, sR : string;
begin
s:=s+' ';
i :=1;
sR :='';
s1:='';
while i <= length(s) do begin
if (s[i] = ' ') then begin
if s1[1] <> UpperCase(s1[1]) then
sR := sr + s1 + ' ';
s1:=''
end
else
s1:=s1 + s[i];
inc(i);
end;
delete(sR, length(sR), 1);
print(sR);
end.
А вот на PascalABC.Net. заметно короче будет
begin
var s := 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';
var a := s.ToWords.Where(v -> (v.First <> v.First.ToUpper)).JoinIntoString();
println(a);
end.
const
m=8;
var
arr: array[1..m] of integer;
max_num: integer;
i: integer;
Summ: integer;
min_num: integer;
x: integer;
begin
randomize;
Summ:=0;
x:=random(20,70);
for i := 1 to x do begin
arr[i] := random(10);
Summ+=arr[i];
writeln (arr[i]);//вывод элементов на экран
end;
max_num := arr[1];
for i := 2 to m do
if arr[i] > max_num then begin
max_num := arr[i];
end;
min_num := arr[1];
for i := 2 to m do
if arr[i] < min_num then begin
min_num := arr[i];
end;
writeln('Summ = ',summ);//Сумма
writeln ('Max = ',max_num);//Максимальный
writeln('Min = ', min_num);//минимальный элемент
writeln('Сount_of_elements = ',x);//количество элементов
end.
Объяснение:
вроде в коде подписано что нужно
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!
function aMin(a:array of integer):=a.Min;
function aMin(a:array of real):=a.Min;
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Min=',aMin(a));
var b:=ArrRandomReal(ReadInteger('m='),-10,10); b.Println;
Writeln('Min=',aMin(b));
end.
Пример
n= 15
-5 11 -6 -46 1 -44 -37 -6 -12 -16 -29 50 2 -12 14
Min=-46
m= 4
3.23076070902439 0.991638028524648 -6.15073071613476 9.34790070138308
Min=-6.15073071613476