Дан линейный массив a[1..n], содержащий целые числа. найти длину наименьшего отрезка числовой прямой, содержащего все положительные элементы массива. pascal
Const K = 13; Var A:array[1..K] of integer; i,Mn,Mx:integer; Begin Write('Исходный массив: '); For i:= 1 to K do Begin A[i]:=random(21)-10; Write(A[i],' ') End; WriteLn;
Mn:=A[K]; Mx:=A[K]; For i:= 1 to K-1 do Begin if (A[i]<Mn)and(A[i]>0) then Mn:=A[i]; if (A[i]>Mx)and(A[i]>0) then Mx:=A[i]; End; WriteLn('Искомая длина: ',Mx-Mn); End.
1) Это кнопки, иконки, поля ввода. Кнопки нажимаются, в поля вводится текст. 2) В Windows -строка заголовка – верхняя строка окна, в которой находится имя программы или имя окна; кнопка сворачивания окна; кнопка восстановления окна кнопка закрытия окна кнопка системного меню строка меню панель инструментов полосы прокрутки рабочее поле строка состояния рамка окна. Вроде все. 3) 1. System 32. Рабочий стол. 2. Мой компьютер, Мои документы, Корзина, Сетевые окружения(Сеть) и управляющие объекты Windows. 4) 1. Иконки, панель задач, папки 2. Ярлык это ссылка на файл, который может находиться где угодно на ПК, а значок это сам файл 3. На панели задач располагается запущенные приложения, панель быстрого доступа, часы... . 4. Папка "Мой компьютер" 5) Ярлык дает ссылку на значок,который запускает. 6) Пуск,панель задач,программы в фоновом режиме,задачи или все, что ты туда поместишь.
Честно, не поняла ваш код вообще. Почему нет цикла? Предлагаю свое решение: 1)Cначала заполняем массив случайными числами от 2 до 5 (включительно) 2)Потом выводим его (Для проверки) 3) Потом считаем оценки. Но сначала нужно обнулить переменные( В самом начале это делали), а то получится кака (:
program N_0547847; var b, c, d, f, i:integer; a: array [1..20] of integer; begin; randomize; b:=0; c:=0; d:=0; f:=0; for i:=1 to 20 do begin a[i]:=random(4)+2; write(a[i],' '); end; writeln; for i:=1 to 20 do begin if a[i]=2 then b:=b+1; if a[i]=3 then c:=c+1; if a[i]=4 then d:=d+1; if a[i]=5 then f:=f+1; end; writeln('Двоек: ', b); writeln('Троек: ', c); writeln('Четверок: ',d); writeln('Пятерок: ',f); end.
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ArrRandom(ReadInteger('n='),-20,99).Println.Where(x->x>0).OrderBy(x->x);
Writeln('Длина отрезка равна ',s.Last-s.First)
end.