Begin
var c, min, imin: integer;
c := 0;
var ar := readarrinteger('Массив:',readinteger());
for var i := 1 to ar.Length do
begin
min := ar[c];
imin := c;
for var j := c to ar.Length - 1 do
begin
if(ar[j] < min) then
begin
min := ar[j];
imin := j;
end;
end;
swap(ar[c], ar[imin]);
c := c + 1;
end;
write('После сортировки: ');
ar.Println;
write('Различных чисел: ',ar.Distinct.Count);
end.
Const nx = 50;
Var A,B,D:array[1..nx]of integer; i,n,j,m,z,k,m1:integer;
Begin
WriteLn('Введи количество элементов массива'); Read(n);
For i:= 1 to N do begin
A[i]:= random(20)-5;write(A[i]:3);end;writeln;
For i:= 1 to N do begin
z:= A[i];k:=0;
For j:= i+1 to N do
if A[i] = A[j] then k:= k +1;
For j:= 1 to m do
if A[i] = B[j] then k:= k +1;
For j:= 1 to m1 do
if A[i] = D[j] then k:= k +1;
if k = 0 then begin
m:= m + 1; B[m] := z;end
else begin m1:= m1 + 1; D[m1] := z;end;
end;writeln('B');
For i:= 1 to m do write(B[i]:3);
<span>end.</span>
1
for i:=1 to 10 do s:=s+T[i]*C[i]
2
a:array[1..31] of real;
3
for i:=1 to N do
begin
readln(a[i];
s:=s+a[i];
end;
s:=s/N;
writeln(s)
4
Program massiv;
Var
a:array[-10..10] of real;
i:integer;
Begin
For
i:=-10 to 10 Do
Read(a[i]);
For
i:=-10 to 10 Do
a[i]:=a[i]/10;
For
i:=-10 to 10 Do
Writeln(a[i])
End.
Нужен учебник, так ничего не сказать :)
Если это задание информатичке понесёшь, то пиши что-то вроде этого:
"30 декабря в Москве собрались уполномоченные делегации советских социалистических республик, которые утвердили Договор и Декларацию об образовании Союза Советских Социалистических республик (СССР)" - это словесная модель исторического события.