Uses Crt;
Var
A:array[1..256] of integer;
i,iMin,N,B:integer;
Begin
ClrScr;
Randomize;
Write('N = ');ReadLn(N);
Write('A(',N,'):');
iMin:=1;
For i:= 1 to n do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
if A[i] < A[iMin] then iMin:=i;
End;
WriteLn;
WriteLn('Min(A) = ',A[iMin],'[',iMin,']');
Write('Min = ');ReadLn(i);
B:=A[i];
A[i]:=A[iMin];
A[iMin]:=B;
Write('A(',N,'):');
For i:= 1 to n do
Write(' ',A[i]);
ReadKey
End.
Var a:array [1..10] of integer;
i,count:integer;
s:real;
begin
....//тут ты заполняешь массив как тебе надо
s:=0;
count:=0;
for i:=1 to 10 do begin
if a[i]<>0 then begin //если элемент ненулевой то
s:=s+s; //суммируем их и увеличиваем счетчик на 1
count:=count+1;
end;
end;
s:=s/count;
writeln('Среднее значение=', s:0:0);
end.
200 = 11001000
543 = 1000011111
950 = 1110110110
1025 = 10000000001
(х<3) подходит х=1 и х=2
(х<2) подходит х=1
(х>2) подходит х=3, х=4
Uses system;
var time:DateTime;
s,h,m,k:real;
begin;
readln(h);
readln(m);
readln(s);
time:=time.AddSeconds(s);
time:=time.AddMinutes(m);
time:=time.AddHours(h);
readln(k);
time:=time.AddSeconds(k);
writeln(time.Hour,':',time.Minute,':',time.Second);
<span>end.</span>