Var N:Array[1..20] of integer; i,j,q,k,max:integer;begin Randomize;writeln('массив');for i:=1 to 20 do beginN[i]:= random(100)-50;write(N[i]:4);end;writeln;i:=0;writeln('Измененый массив');While j<20 do beginj:= j + 2; k := N[j-1];N[j-1]:=N[j]; N[j]:= k;end;foreach q in N do beginwrite(q :4);end;end.
var N,M:Array[1..20] of integer; i,j,min,q,k,max:integer;begin Randomize;max:=-200; min:=200;writeln('1 массив');for i:=1 to 20 do beginN[i]:= random(100)-50;write(N[i]:4);if ((N[i]>0 )and(N[i] mod 2 = 0))then beginif max < N[i] then max := N[i];if min > N[i] then min := N[i];j:= j + 1;M[j]:=N[i];end;end;writeln;writeln('2 массив');foreach k in M do beginwrite(k:4);end;writeln;if (max = -200) or (min = 200) then write ('нет чётных положительных элементов')else beginwrite('max = ' ,max:4);write(' min = ' ,min:4);end;end.
//PascalABC.NET 3.3.5.1644
var c, d, x, y: real;
begin
c := 2;
d := -2.5;
x := 2;
y := ( ( tan(x)/ln(x) ) + (x/c) ) / abs( d * x );
writeln('При x = ', x, ', y = ', y);
x := 3;
y := ( ( tan(x)/ln(x) ) + (x/c) ) / abs( d * x );
writeln('При x = ', x, ', y = ', y);
end.
1) 11-2=9 9-2=7 7-2=5 5*3=15 15-2=13
ответ: 11121
2) а)1317 (сумма старших разрядов 3+2+8=13, сумма младших разрядов 1+9+7=17)
б)1114 (сумма старших разрядов 1+8+5=14, сумма младших разрядов 3+2+6=11)
3) а) История любви б) Яша юркнул в эллинг
1 ctrl+shift+alt ну как то так мне такое уже давали и зделал на 10