Дан массив указать наименьшую длину числовой оси содержащую все числа массива

162

410

Посмотреть ответы 2

Ответы на вопрос:

ShiQualence

Информатика

4,5(74 оценок)

Const n = 13; var a: array[1..n] of integer; i,min,max: integer; begin for i: = 1 to n do begin a[i]: =random(n); write(a[i],' ') end; max: =a[1]; min: =a[1]; for i: = 2 to n do begin if max< a[i] then max: =a[i]; if min> a[i] then min: =a[i]; end; writeln('- данные числа лежат на отрезке, длина которого: ',max - min); end.

ОляХ1

Информатика

4,4(58 оценок)

Var a,b,c,min: integer; begin writeln('введите 1 число'); readln(a); writeln('введите 2 число'); readln(b); writeln('введите 3 число'); readln(c); min: =a; if b < min then min: =b; if c < min then min: =c; writeln(min); end.