//Pascal ABC.NET v3.1 сборка 1172
Var
ar:array[1..15] of integer;
i,k1,k2:integer;
r1,r2:real;
begin
randomize;
writeln('Array:');
for i:=1 to 15 do
begin
ar[i]:=random(-20,20);
write(ar[i]:4);
if i mod 2=0 then
begin
inc(k1);
r1:=r1+ar[i];
end;
if ar[i]>0 then
begin
inc(k2);
r2:=r2+k2;
end;
end;
r1:=r1/k1;
r2:=r2/k2;
writeln;
if r1>r2 then writeln('Среднее арифметическое элементов стоящих на четных местах');
if r1<r2 then writeln('Cреднее арифметическое положительных элементов массива');
if r1=r2 then writeln('Равно');
end.
Const
n = 20;
var
a: array[1..n] of real;
i, imax, imin: integer;
r, rmax, rmin:real;
begin
Randomize;
Writeln('Элементы массива');
rmax:=-1; { заведомо меньше меньшего }
rmin:=100; { заведомо больше большего }
for i := 1 to n do
begin
r:=Random(10);
a[i]:=r;
Write(r,' ');
if rmax<r then begin rmax:=r; imax:=i end;
if rmin>=r then begin rmin:=r; imin:=i end
end;
Writeln;
{ меняем местами и выводим результат }
a[imax]:=rmin; a[imin]:=rmax;
Writeln('Конечное состояние массива');
for i := 1 to n do Write(a[i],' ');
Writeln
end.
<em><u>Тестовое решение:</u></em>
Элементы массива
4 1 2 8 6 3 7 5 5 1 4 4 3 3 6 8 5 4 7 6
Конечное состояние массива
4 1 2 1 6 3 7 5 5 8 4 4 3 3 6 8 5 4 7 6
<em>Видно, что первая восьмерка поменялась местами с последней единицей.</em>
Самый короткий путь от Николаевки до Сергеевки и от Сергеевки до Ивановки = 3+3=6
Характер передачи - это передача информации.
Он может быть Односторонний и Двусторонний.
Односторонний - это когда информация исходит только от источника в приемник.
Например: вы видите светофор, он источник, а вы приемник.
Двусторонний - это когда и источник и приемник передают информацию.
Например: работа за компютером, вы вводите информацию и компьютер выводит вам новую. Это очень просто говоря.
Суждение истинно, если оно отражает действительное положение вещей.
<span>Суждение ложно, если оно противоречит истинному положению вещей. </span>