ДВЕ ЗАДАЧИ В ПИТОНЕ, 1) (укр) Знайти різницю між найбільшим та найменшим елементом рандомного списку.
Наприклад:
5 і 2 різниця: 3
5 і -2 різниця: 7
(різниця по модулю)
аbs – функція абсолютного значення
(рус) Найти разность между наибольшим и наименьшим элементом рандомного списка.
Например:
5 и 2 разность: 3
5 и -2 разность: 7
(Разность по модулю)
АBS - функция абсолютного значения

2) (укр) Знайти відстань між розташуванням найбільшого та найменшого елементів списку (різниця НОМЕРІВ)
(рус) Найти расстояние между расположением наибольшего и наименьшего элементов списка (разница НОМЕРОВ)

​

1 программа:

var a, sum:integer;

begin

writeln('Введите числа (цифра 0 - выход из программы)');

sum:= 0;

readln(a);

while(a <> 0) do begin

sum:= sum + a;

readln(a);

end;

writeln('Сумма чисел = ', sum);

end.

2 программа:

var a, sum:integer;

begin

a:=0;

while(a <= 100) do begin

if (a mod 2 = 0) then

 sum:= sum + a;

a:= a + 1;

end;

writeln('Сумма четных чисел = ', sum);

end.

3 программа:

var a, i, N:integer;

begin

writeln('Введите N');

readln(N);

a:=1;

for i:=1 to N do begin

 write(a*a, ' ');

 a:= a + 1;

end;

end.

1 программа:

var a, sum:integer;

begin

writeln('Введите числа (цифра 0 - выход из программы)');

sum:= 0;

readln(a);

while(a <> 0) do begin

sum:= sum + a;

readln(a);

end;

writeln('Сумма чисел = ', sum);

end.

2 программа:

var a, sum:integer;

begin

a:=0;

while(a <= 100) do begin

if (a mod 2 = 0) then

 sum:= sum + a;

a:= a + 1;

end;

writeln('Сумма четных чисел = ', sum);

end.

3 программа:

var a, i, N:integer;

begin

writeln('Введите N');

readln(N);

a:=1;

for i:=1 to N do begin

 write(a*a, ' ');

 a:= a + 1;

end;

end.