Программирование
+1Задачи по программированию помогите решить, пожалуйста.
1. С клавиатуры вводится 20 различных произвольных чисел. Найти разность между наибольшим и наименьшим из них и порядковый номер наибольшего и наименьшего числа.
2. Задача на картинке.
язык программирования: паскаль (самый простой)
По дате
По рейтингу
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.
Это без -3а, если что.
x:=16;
y:=0;
while x>0 do
begin
y:=sqrt(y+x);
x:=x-3;
end;
writeln(y);
