Program z4; Var a: array [1..1000] of integer; i, sum, n:integer; S_R: real;Begin write('Введите кол-во элементов - '); readln(n); for i := 1 to n do begin a[i] := random (30); sum:= sum + a[i]; end; S_R:= sum / n; writeln('Cреднее арифметическое - ', S_R); for i := 1 to n do if (a[i] >= S_R) then write(a[i],' '); End.
Три вопроса:
назовем поезда а, б, в
1)а отходит после б? Если нет, то а раньше б, переход ко второму вопросу. Если да, то порядок *аб*,переходим ко второму вопросу
2)а отходит после в? если да, то порядок такой: ваб. Если нет, то а первый
3)а - первый. Тогда спрашиваем: в отходит после б? если да, то абв, если нет, то авб
Решение 5 задачи, решу 2 и 4, если ответите на вопрос в обсуждении.
Опять же задачи максимально ущербно сформулированы, и тут нет ответа на такие вопросы как "выводить ли сам массив на экран, вещественные или целые использовать типы, как вообще ввод и вывод должен работать", поэтому не жаловаться на неверное построение задачи.
program abc;
var
a:array[1..100] of integer;
i,chet,nechet:integer;
begin
nechet:=0;
chet:=0;
for i:=1 to 100 do
a[i]:=random(99)+1;
for i:=1 to 100 do
if(odd(a[i])=true) then inc(nechet)
else inc(chet);
writeln(chet,' ',nechet);
end.
var
v:array[1..100] of integer;
i,j,n,b:integer;
begin
randomize;
write('vvedite razmernost'' massiva: '); readln(n);
writeln('============ Ishodnii massiv ============='); writeln;
//Заполним массив случайными числами
for i := 1 to n do
begin
v[ i]:=random(100)-50;
write(v[ i]:4);
end;
writeln;
// организуем сортироваку от минимального
// к максимальному элементу массива
for i:=1 to n-1 do
for j:=i+1 to n do
if v[ i]>v[ j] then
begin
b:=v[ i];
v[ i]:=v[ j];
v[ j]:=b;
end;
writeln;
write('=========== Otsortirovannii massiv =======');writeln;writeln;
write('ot min k max: ');writeln;
for i := 1 to n do
write(v[ i]:4); writeln; writeln;
write('ot max k min: '); writeln;
for i := n downto 1 do
write(v[ i]:4);
readln;
end.