(по компьютеру) Написать биографию любого писателя/ученого (5 предложений) после каждого словва ввести "твердый"(неразрывный) пробел . Каждое слово разделить по слогам. показать
/Program granat; Uses Crt; var A: array [1..10] of integer; i,k,x,z,vsp:integer; begin write ('Исходный массив:'); for i := 1 to 10 do begin A[i]:=random(10); {Заполняем массив}Write (A[i]:3);end; writeln; begin for k:=1 to 9 do begin x:=A[k];vsp:=k; for i:=k+1 to 10 do if a[i]<x then begin x:=A[i];vsp:=i;end; if vsp>k then begin z:=a[k];a[k]:=a[vsp];a[vsp]:=z;end;end;end; write ('Отсортированный массив:');for i := 1 to 10 doWrite (A[i]:3);writeln; begin for i:=1 to 10 do if A[i] mod 2 = 0 then Write (A[i]:3); end;end.
Const n = 10; var a: array[1..n] of integer; i, j, t: integer; flag:boolean;
begin Randomize; Writeln('Исходный массив'); for i := 1 to n do begin a[i] := random(101)-50; Write(a[i]:4) end; Writeln; i:=1; repeat flag:=true; for j := 1 to n-i do if a[j] > a[j+1] then begin t := a[j]; a[j] := a[j+1]; a[j+1] := t; flag:=false end; Inc(i); until (i>n-1) or flag; Writeln('Отсортированный по возрастанию массив'); for i := 1 to n do Write(a[i]:4); Writeln end.
Uses Crt;
var A: array [1..10] of integer;
i,k,x,z,vsp:integer;
begin
write ('Исходный массив:');
for i := 1 to 10 do begin
A[i]:=random(10); {Заполняем массив}Write (A[i]:3);end;
writeln;
begin
for k:=1 to 9 do
begin
x:=A[k];vsp:=k;
for i:=k+1 to 10 do
if a[i]<x then
begin
x:=A[i];vsp:=i;end;
if vsp>k then
begin
z:=a[k];a[k]:=a[vsp];a[vsp]:=z;end;end;end;
write ('Отсортированный массив:');for i := 1 to 10 doWrite (A[i]:3);writeln;
begin
for i:=1 to 10 do
if A[i] mod 2 = 0 then Write (A[i]:3);
end;end.