program Prog;
var i, x, Proiz, MinEl: Integer;
arr: array[1..8] of Integer;
begin
Proiz:=1;
MinEl:=13;
randomize;
write('Введите X: ');
read(x);
// запоолнение, вычисление мин. эл., и умножения
for i:=1 to 8 do begin
arr[i]:=random(12)+2;
Proiz:=Proiz*arr[i];
if arr[i]<MinEl then
MinEl:=arr[i]
end;
// вывод всего массива
for i:=1 to 8 do
write(arr[i], ' ');
writeln;
// вывод нужных элементов
writeln('Минимальный элемент: ', MinEl);
writeln('Произведение элементов: ', Proiz);
writeln('Элементы, равные X: ');
for i:=1 to 8 do
if arr[i]=x then
write(arr[i], ' ')
end.
Простая программа, для начала мы считаем первое значение сразу в min(это сделано чтобы не давать минимуму значение какой-то константы), затем запускаем цикл, в котором будем вводить число и тут же проверять его на наше условие (поиск минимума). Ну и в конце выводим результат, если что-то непонятно - в комментарии.
var
x, min, i : integer;
begin
writeln('Введите 15 значений: (каждое на новой строке): ');
readln(min);
for i := 1 to 14 do
begin
readln(x);
if min > x then
min := x;
end;
writeln('Минимальное число в последовательности:', min);
end.
Основные преимущества компьютерной технологии создания текстовых документов перед бумажной технологией:
1) Понятно написанный текст (есть не понятные почерки);
2) Высока скорость набора текста;
4) Возможность быстрой корректировка ошибок (в рукописном исправить сложнее);
5) Быстрая перестановка и перенесение теста в нужные места (сохранение выделенного фрагмента в буфер обмена);
6) Простое форматирование текста (стиль и размеры текста) и абзацев в целом;
7) Просто насыщение текста картинками, таблицами, графиками и т.п.
8) Быстрый поиск ключевого слова по тексту;
9) Одновременная работа над одним текстом нескольких авторов;
10) Автоматическая проверка ошибок;
11) Простое и удобное рецензирование;
12) Быстрое размножение текста в любых объемах;
13) Защита авторских прав (от копирования, редактирования);
14) Доступ к тексту из любой точки мира;
15) Печать текста с наложением водяными знаками и применение различных подложек;
16) Представление текста в любых форматах (doc, pdf, jpeg и т.д);
17) Возможность шифрования текста для защиты от несанкционированного доступа;
18) Возможность применения по тексту гипер- и перекрестных ссылок;
19) Возможность установки цифровой подписи от автора текста;
20) Сохранение природных ресурсов (не нужно рубить леса для бумаги).