var
arr: array of real;
n, null_elem, negative, positive, i: integer;
begin
randomize;
writeln('Введите размерность массива: ');
readln(n);
arr:=new real[n];
null_elem := 0;
negative := 0;
positive := 0;
writeln('Сгенерированный массив: ');
for i := 0 to n-1 do
begin
arr[i] := random * 98 - 44;
if (arr[i] = 0) then inc(null_elem);
if (arr[i] < 0) then inc(negative);
if (arr[i] > 0) then inc(positive);
write(arr[i]:10:2);
end;
writeln(#10, #10, 'Нулевых элементов: ', null_elem, #10, 'Отрицательных элементов: ', negative, #10, 'Положительных элементов: ', positive);
end.
Program gt2;
var i,j,s:integer;
a:array[1..4,1..4]of integer;
begin
randomize;
for i:=1 to 4 do
for j:=1 to 4 do
a[i,j]:=random(7)+12;
for i:=1 to 4 do
begin
s:=0;
for j:=1 to 4 do
s:=s+a[j,i];
writeln(s);
end;
<span>end.
program gt3;
var i,j,s:integer;
a:array[1..7,1..7]of integer;
begin
randomize;
for i:=1 to 7 do
for j:=1 to 7 do
a[i,j]:=random(7)+12;
for i:=1 to 7 do
begin
s:=0;
for j:=1 to 7 do
if(a[j,i]<14)then s:=s+1;
writeln(s);
end;
<span>end.
program gt4;
var i,j,p:integer;
a:array[1..3,1..3]of integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
read(a[i,j]);
for i:=1 to 3 do
begin
p:=a[i,1];
a[i,1]:=a[i,2];
a[i,2]:=p;
end;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(a[i,j],' ');
end;
writeln;
end;
<span>end.
</span></span></span>
Ты не дал последовательность букв. но должно быть примерно так: http://birthday.ru/look.jpg/
Написано на Паскале. Все работает, можешь сам проверить