Const n=15; var i,np,nn,amax:integer; a:array[1..n] of integer; begin Randomize; Write('Исходный массив: '); np:=0; nn:=0; for i:=1 to n do begin a[i]:=Random(51)-15; Write(a[i],' '); if a[i]>0 then Inc(np) else if a[i]<0 then Inc(nn); end; Writeln; if np/nn>2 then begin amax:=a[i]; for i:=2 to n do if a[i]>amax then amax:=a[i]; Write('Выходной массив: '); for i:=1 to n do begin if a[i]<0 then a[i]:=1 else if a[i]>0 then a[i]:=a[i]*amax; Write(a[i],' ') end; Writeln end else Writeln('В массив изменения не вносятся') end.
var a : array [1..4] of char; i, k, l, m, N : byte; begin a[1] := 'Л'; a[2] := 'Е'; a[3] := 'Т'; a[4] := 'О'; for i := 1 to 3 do begin for k := 1 to 4 do begin for l := 1 to 4 do begin for m := 1 to 4 do begin if i <> 2 then begin write(a[i], a[k], a[l], a[m], ' ,'); N += 1; end; end; end; end; end; writeln('Всего: ', N) end.
Либо мышью потянуть за квадратики по бокам рабочего листа, либо нажать на надпись "Изменить размер" в категории "Изображение"
Объяснение: