Question

Код для паскаль.Дана последовательность целых чисел a, b, c. Найти разность между максимальным и минимальным значениями.

Answer 1

 
program pin;
var 
i, j, cm: Integer; 
povtor: Boolean; 
const 
m: array[1..10] of Integer = (1, 2, 3, 1, 2, 5, 4, 3, 1, 2); 
begin 
cm := 0; 
for i := 1 to 10 do 
begin 
povtor := False;