1) задать символьный массив из 7 слов (мама, ель, парта, каникулы, прыжок, ура, при-кол вывести элементы массива в столбик, с каждым элементом вывести его длину. 2). задать числовой массив из 8 элементов. данные вводить с клавиатуры. упорядочить элементы массива по возрастанию. вывести исходный и массивы на экран. паскаль.

Первая задача:

var

i:integer;

a: array [1..7] of String;

begin

a[1]:='мама';

a[2]:='ель';

a[3]:='парта';

a[4]:='каникулы';

a[5]:='прыжок';

a[6]:='ура';

a[7]:='прикол';

for i:=1 to 7 do

writeln(a[i],' ', Length(a[i]));

end.

Вторая задача:

var

i, j, c:integer;

a:array [1..8] of integer;

begin

for i:=1 to 8 do

begin

writeln('Введите эл. массива A[', i, ']');

readln(a[i]);

end;

writeln();

for i:=1 to 8 do

write(a[i], ' ');

for i:=1 to 7 do

for j:=i+1 to 8 do

if a[i]>a[j] then

begin

c:=a[i];

a[i]:=a[j];

a[j]:=c;

end;

writeln();

for i:=1 to 8 do

write(a[i], ' ');

end.

1.
uses crt;
var n:string;
begin
read(n); 
writeln(strtoint(n[1])*strtoint(n[2])*strtoint(n[3]));
end.
2.
uses crt;
var n,i:integer;
res:double;
begin
read(n);
for i:=1 to n do
res:=res+cos(1/i);
writeln(res:5:3);
end.
3.
uses crt;
var n,i:integer;
mult:real;
a:array[1..100] of real;
begin
mult:=1;
writeln('Input N and elements of array.');
read(n);
for i:=1 to n do
begin
read(a[i]);
if i mod 2=0 then 
mult:=mult*a[i];
end; 
writeln(mult);
end.
4.
uses crt;
var n,i,sum:integer;
a:array[1..100] of integer;
begin
writeln('Input N and elements of array.');
read(n);
for i:=1 to n do
read(a[i]);
i:=1;
while (a[i]<>0) and (i<=n) do
begin
if a[i] mod 2=0 then
sum:=sum+a[i];
i:=i+1;
end;
writeln(sum);
end.

Program pr2;
uses crt;
var
m,n,i,j,k,l:integer;
mas: array[1..99,1..99] of integer;
masb: array [1..99] of integer;
begin
clrscr;
write('vvedite m');
readln(m);
write('vvedite n');
readln(n);
writeln('vvedite massiv MxN')
;for i:=1 to m do
for j:=1 to n do
begin
write('mas[',i,',',j,']= ');
readln(mas[i,j]);
end;
for i:=1 to m do
begin
k:=mas[i,1];
l:=mas[i,1];
for j:=1 to n do
begin
if k < mas[i,j] then k:=mas[i,j];
if l > mas[i,j] then l:=mas[i,j];
end;
masb[i]:=k-l;

end;
for i:=1 to m do
begin
for j:=1 to n do
write(mas[i,j],' ');
writeln('result = ',masb[i]);
end;
readln(i)
end.