const
n = 10;
var
i:integer;
mas : array[1..n] of integer;
max_num, max_index: integer;
begin
writeln('введите элементы массива');
for i:=1 to n do readln(mas[i]);
for i := 2 to n do
if mas[i] > max_num then begin
max_index := i;
max_num := mas[i];
end;
writeln('Максимальное число ',max_num,' находится на позиции ',max_index);
end.
Объяснение -
константы:
n- это сколько чисел будет в твоём массиве
max_num - максимальное число
max_index - позиция числа
Функции :
for i:=1 to n do readln(mas[i]); - вводим числа в массив
for i := 2 to n do
if mas[i] > max_num then begin
max_index := i;
max_num := mas[i];
end;
ищем максимальное число и его позицию
Поделитесь своими знаниями, ответьте на вопрос:
Этапы, которых стоит придерживаться при разработке любых баз данных: Получение примеров внутренних и выходящих документов (файлы формата эксель, ворд, распечатанные документы Создание таблиц и связей с ними. Создание презентаций и связей с ними. Разработка и создание отчетов для вывода данных на печать или в файл.
Автомат называется синхронным, если его состояния меняются в строго определенные моменты времени, задаваемые с специальных сигналов синхронизации.
Входные сигналы синхронного автомата обладают следующими свойствами:
1) сигналы могут поступать на вход автомата только в строго определенные моменты времени (т.е. такты работы автомата определяются принудительно тактирующими синхросигналами);
2) длительность входных сигналов пренебрежимо мала;
3) в промежутках между тактирующими сигналами на входе автомата сигнал отсутствует.
Объяснение: