var i, j: integer; a: array[1..m, 1..n] of integer; b: array[1..n] of longint; p: longint;
begin Randomize; writeln('Исходный массив'); for i := 1 to m do begin for j := 1 to n do begin a[i, j] := random(100) - 50; write(a[i, j]:4) end; writeln end; writeln('Результирующий массив'); for j := 1 to n do begin p := 1; for i := 1 to m do p := p * a[i, j]; b[j] := p; write(b[j], ' ') end; end.
var l,a,b:integer; s: string; begin write('Введите строку: '); readln(s); l:=length(s); writeln('L=',l); if l>6 then begin a:=pos('(',s); b:=pos(')',s); if (a>0) and (b>0) then writeln(copy(s,a+1,b-a-1)); if (a=0) and (b>0) then writeln('Скобка не открыта'); if (a>0) and (b=0) then writeln('Скобка не закрыта'); if (a=0) and (b=0) then writeln('Текста в скобках нет'); end; end.
var n,i,k:integer; s,t: string; begin write('Введите строку: '); readln(s); t:=s; repeat i:=pos(' ',t); delete(t,1,i); until i=0; k:=length(t); for i:=1 to k do if t[i]='k' then n:=n+1; writeln('Кол-во букв k: ',n); end.
m = 6;
n = 4;
var
i, j: integer;
a: array[1..m, 1..n] of integer;
b: array[1..n] of longint;
p: longint;
begin
Randomize;
writeln('Исходный массив');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(100) - 50;
write(a[i, j]:4)
end;
writeln
end;
writeln('Результирующий массив');
for j := 1 to n do
begin
p := 1;
for i := 1 to m do p := p * a[i, j];
b[j] := p;
write(b[j], ' ')
end;
end.
Тестовый пример:
Исходный массив
-22 -23 -14 16
-17 42 -13 19
-35 9 -47 -7
23 -9 19 25
3 -7 -31 43
15 42 40 0
Результирующий массив
-13548150 -23004324 201532240 0