Модератор: Модераторы
program diff_array1;
uses
Math;
var
arr: array [1..10] of integer = (2, 1, 5, 10, 6, 9, 7, 8, 3, 5);
I: integer;
begin
I := MaxValue(arr) - MinValue(arr);
Writeln(I);
Readln;
end.
program diff_array2;
uses
Math;
var
arr: array [1..10] of integer = (2, 1, 5, 10, 6, 9, 7, 8, 3, 5);
I, L, H: integer;
begin
L := low(arr);
H := L;
for I := low(arr) to high(arr) do
begin
H := Max(H, arr[I]);
L := Min(L, arr[I]);
end;
I := H - L;
Writeln(I);
Readln;
end.
program diff_array3;
var
arr: array [1..10] of integer = (2, 1, 5, 10, 6, 9, 7, 8, 3, 5);
I, L, H: integer;
begin
L := low(arr);
H := L;
for I := low(arr) to high(arr) do
begin
if H < arr[I] then
H := arr[I];
if L > arr[I] then
L := arr[I];
end;
I := H - L;
Writeln(I);
Readln;
end.
Вернуться в Free Pascal Compiler
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 25