Задачи по программированию помогите решить, пожалуйста.

Question

Задачи по программированию помогите решить, пожалуйста.

Владислава Рязанова Знаток (447), закрыт 9 лет назад

1. С клавиатуры вводится 20 различных произвольных чисел. Найти разность между наибольшим и наименьшим из них и порядковый номер наибольшего и наименьшего числа.
2. Задача на картинке.
язык программирования: паскаль (самый простой)

Answer 1

1.

var x,max,min:real; i,imax,imin:integer;
begin
write('Enter 20 numbers: '); read(x);
min:=x; max:=x; imin:=1; imax:=1;
for i:=2 to 20 do
begin
read(x);
if x> max then begin max:=x; imax:=i end;
if x< min then begin min:=x; imin:=i end;
end;
writeln('Difference=',max-min,' Imax=',imax,' Imin=',imin);
readln; readln
end.

Answer 2

johnsilver Просветленный (22492) 9 лет назад

Это без -3а, если что.

x:=16;
y:=0;
while x>0 do
begin
y:=sqrt(y+x);
x:=x-3;
end;
writeln(y);

Владислава РязановаЗнаток (447) 9 лет назад

Спасибо большое)

johnsilverПросветленный (22492) 9 лет назад

Вторая прога, все таки решил выложить, раз написал. Возможно придется адаптировать к своему паскалю, т. к. абс. Да, еще там с клавы лень вводить было, поэтому вот так.

var
maxm,minm,imax,imin,i,a:integer;
begin
//readln(a);
a:=random(1,100);
print(a);
maxm:=a;imax:=1;
minm:=a;imin:=1;
for i:=2 to 20 do
begin
//readln(a);
a:=random(1,100);
print(a);
if a>maxm then
begin
imax:=i;
maxm:=a;
end;
if a<minm then
begin
imin:=i;
minm:=a;
end;
end;
writeln;
writeln('Макс число ',maxm,' №',imax);
writeln('Мин число ',minm,' №',imin);
end.