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.
Объяснение:
вроде в коде подписано что нужно
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.