М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

1.найти наибольший элемент одномерного массива, состоящего из n элементов. элементы вводятся с клавиатуры. 2.найти номер наименьшего элемента в массиве, заданного датчиком случайных чисел на интервале [-20, 25]. размер произвольный.

👇
Ответ:
yarabar
yarabar
27.09.2021

program eee;

const n=5;

var

a:array[1..n] of integer;

i,max: integer;

begin

for i:=1 to n do begin

readln(A[i]);

if max<A[i] then

max:=A[i];

end;

writeln(max);

end.

4,6(57 оценок)
Открыть все ответы
Ответ:
hopelless2124
hopelless2124
27.09.2021

1)Это специальная пометка в документе,которая приводит читателя к другой странице

2)Первый вид — это анкорные гиперссылки

Второй вид гиперссылок в данной классификации это ссылки со смешанным или разбавленным анкором

Третий вид гиперссылок это безанкорные ссылки

3)Гиперссылка является основным инструментом, с которого осуществляется навигация по сайту и по сети Интернет в целом

4)Самый быстрый создать простейшую гиперссылку в документе Office — нажать клавишу ВВОД или ПРОБЕЛ после ввода адреса веб-страницы. Office автоматически преобразует адрес в ссылку.

5)Gtrl+V

Объяснение:

4,5(9 оценок)
Ответ:
BOSS11112711
BOSS11112711
27.09.2021
Эта автоматически тебе всё сделает.
Var i, n, max : Integer;
     a : array [1..30] of Integer;
 begin
    for i := 1 to 30 do
 begin
      Write('a[', i, ']='); 
      a[i]:=i+1;
      if max<a[i] then max:=a[i];
      writeln(a[i]);
end;
  writeln('Максимальный элемент равен: ',max);
end.

Если нужно будет ввести последовательность с клавиатуры, то вот:
Var i, n, max : Integer;
     a : array [1..30] of Integer;
 begin
    for i := 1 to 30 do
 begin
      Write('a[', i, ']='); 
      ReadLn (a[i]);
      if max<a[i] then max:=a[i];
end;
  writeln('Максимальный элемент равен: ',max);
end.
4,4(87 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ