Program sdvig; uses crt; cоnst n=10; k=3; var i,c,j:integer; b:array[1..n] of integer; BEGIN randomize; clrscr; writeln('решение задачи на сдвиг вектора '); writeln(''); writeln; writeln('вектор В: '); for i:=1 to n do begin b[ i ]:=random(101); write(b [ i ]:3); end; writeln;
for j:=1 to k do begin c:=b[ n ]; for i:=n-1 downto 1 do b[i+1]:=b[ i ] ; b[1]:=c; for i:=1 to n do write(b[ i ]:3); writeln; end; writeln('конец задачи '); readkey; END.
Если без циклов то program fifteen; begin writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); writeln('Имя и фамилия'); end.
Если циклы уже program fifteen; var i:integer; begin for i:=1 to 15 do writeln('Имя и фамилия'); end.
//В квадратной матрице A [n, n] определить количество строк упорядоченных //по убыванию суммы и вывести их номера. const n = 50;var A:Array[1..n, 1.. n] of integer;B:Array[1..n] of integer;m,i,j,sum, k, maxS, q:integer;beginwriteln('Введите размер матрицы m');readln(m);for i:= 1 to m dobeginfor j:= 1 to m dobeginA[i,j] := random(100)+1;write(A[i,j]:4);sum:= sum + A[i,j]end;B[i]:= sum;sum:=0;writeln;end;writeln('Сумма в строке ');for i:=1 to m dowriteln(i:2, B[i]:4);writeln('Матрица с убывающими строками');maxS := -1;for i:= 1 to m dobeginfor k:= 1 to m dobeginif B[k]> maxS then beginmaxS:= B[k]; q := k;end;end;B[q]:= 0; maxS := -1;for j:= 1 to m dobeginwrite(A[q,j]:4);end;writeln; end; end.
uses crt;
cоnst n=10;
k=3;
var
i,c,j:integer;
b:array[1..n] of integer;
BEGIN
randomize;
clrscr;
writeln('решение задачи на сдвиг вектора ');
writeln('');
writeln;
writeln('вектор В: ');
for i:=1 to n do begin
b[ i ]:=random(101); write(b [ i ]:3);
end;
writeln;
for j:=1 to k do begin
c:=b[ n ];
for i:=n-1 downto 1 do
b[i+1]:=b[ i ] ;
b[1]:=c;
for i:=1 to n do
write(b[ i ]:3);
writeln; end;
writeln('конец задачи ');
readkey;
END.