10 значений для массива вводят с клавиатуры. Программа сравнивает предыдущий элемент с последующим. Если последующий больше по значению чем предыдущий то программа меняет из местами. Я пробовала но что то не так с программой сделать правильно и разобраться по возможности
var a:array[1..10] of integer;
i,t:integer;
begin
for i:=1 to 10 do
read(a[i]);
begin
for i:=1 to 9 do
if a[i] begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
end;
write(a[i],' ');
end;
end.
a, b, c, min, max, mid: integer;
f1, f2: Text;
begin
Assign(f1, 'date.in');
Reset(f1);
Read(f1, a, b, c);
Close(f1);
if a > b then begin
max := a; min := b
end
else begin
max := b; min := a
end;
if max > c then begin
if min < c then mid := c
else begin
mid := min; min := c
end
end
else begin
mid := max; max := c
end;
writeln('Меньшее=', min, ' среднее=', mid, ' большее=', max);
Assign(f2, 'date.out');
Rewrite(f2);
Write(f2, min, ' ', mid, ' ', max);
Close(f2)
end.
n,p: Longint;
i,k,x,sum,min,max,max2,kr3: Integer;
Begin
readln(n);
p:=n;
while p>0 do //находим число цифр в числе
begin
p:=p div 10;
k:=k+1;
end;
p:=n;
min:=9;
for i:=1 to k do
begin
x:=p mod 10;
if x mod 2=0 then
begin
sum:=sum+x;
if x>max2 then max2:=x;
end;
if x<min then min:=x;
if x>max then max:=x;
if (x mod 3=0) and (x>0) then kr3:=kr3+1;
p:=p div 10;
end;
writeln('Сумма четных цифр: ',sum);
writeln('Минимальная цифра: ',min);
writeln('Количество кратных трем: ',kr3);
writeln('Разность максимальной и минимальной: ',max-min);
writeln('Максимальная четная цифра: ',max2);
end.
p - вс переменная. В нее заносим значение n
i - счетчик цикла
k - количество цифр в числе
x - текущая цифра числа
sum - сумма четных
min - минимальная цифра
max - максимальная цифра
max2 - максимальная четная цифра
kr3 - количество цифр, кратных 3: