Размещено 3 года назад по предмету
Информатика
от karina256553
ры
6. Фрагмент программы:
begin
Writeln ('Введите :: ReadLn (N); WriteLn ( 'Введите х; ),
ReadLn (X)BХ;
FOR I:=2 to N do
begin
Write ('Введите X: '); ReadLn (X) ;
IF X>в then B:=X Else if X
end;
WriteLn(B-A);
решает следующую задачу:
1) определяет минимальный элемент последовательности
2) определяет максимальный элемент последовательности
3) определяет разность между минимальным
последовательности
4) определяет разность между максимальным минимальным
последовательности
и
максимальным
элементами
И
элементом