Составить алгоритм сложения двух целых чисел F и D, вводимых с клавиатуры. Результат сложения записать в виде переменной Z. По данному алгоритму написать программу в Паскале.

#include <iostream.h>
#include <math.h>
void main()
{
int i,n;
cout<<"Input size of mas: ";
cin>>n;
int *mas=new int[i];
cout<<"Input element of mas"<<endl;
for(i=0;i<n;i++)
cin>>mas[i];
cout<<"Output element of mas:"<<endl;
for(i=0;i<n;i++)
cout<<mas[i]<<" ";
cout<<endl;
int min; int pozmin;
min=mas[0]; pozmin=0;
for(i=1;i<n;i++)
{
if(mas[i]<min)
{
min=mas[i];
pozmin=i;
}
}
int max; int pozmax;
max=mas*[0]; pozmax=0;
{
if(mas[i]>max)
{
max=mas[i];
pozmax=i;
}
}
int temp;
temp=mas[pozmax];
mas[pozmax]=mas[pozmin];
mas[pozmin]=temp;
for(i=0;i<n;i++)
cout<<mas[i]<<" ";
cout<<endl;
}

Написано на с++

Объяснение:

Задание 1

program bukva;

const R=[' ','.',',',';',':','?','!','-']; // разделители

var

s,bukv:string;

i,kol,len:integer;

procedure UpCaseRus(var s:string);

{русские в верхний регистр}

var i:integer;

begin

for i:=1 to length(s) do

if s[i] in ['а'..'п'] then s[i]:=chr(ord(s[i])-32)

else if s[i] in ['р'..'я'] then s[i]:=chr(ord(s[i])-80)

else if s[i]='ё' then s[i]:='Ё';

end;

begin

readln(s);

readln(bukv);

UpCaseRus(s);

UpCaseRus(bukv);

For i:=length(s) downto 2 do

if ((s[i] in R) and (s[i-1] in R)) then delete(s,i,1);

len:=length(s);

kol:=0;

for i:=len downto 1 do

begin

if s[i] in R then

if s[i+1]=bukv then kol:=kol+1;

end;

if s[1]=bukv then kol:=kol+1;

writeln('Слов на букву '+bukv+' ',kol);

readln;

end.

Задание 2

const r=[' ','.',',',';',':','?','!','-'];

var

s:string;

i,kol,d:integer;

begin

readln(s);

len:=length(s);

kol:=0;  d:=0;

For i:=length(s) downto 2 do

       if ((s[i] in r) and (s[i-1] in r)) then delete(s,i,1);

for i:=1 to length(s) do

begin

if s[i] in r then kol:=kol+1

else if (s[i] in ['0'..'9']) then d:=d+1;

end;

writeln('Слов всего ',kol+1);

writeln('Цифр  в тексте ',d);

readln;

end.