1. Информатика
  2. Нахождение наибольшего

Нахождение наибольшего элемента всего массива. (паскаль)

1Anabel1 1Anabel1    2   20.05.2019 01:00    0

Ответы
Фари228 Фари228  13.06.2020 07:23

const n = 10;

var

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

  i, max: integer;

begin

  for i := 1 to n do begin

    a[i] := random(100);

    write(a[i], ' ');

    if(a[i] > max) then max := a[i];

  end;

  writeln;

  writeln('Наибольший эл. массива: ', max);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
kristinakissa1 kristinakissa1  19.07.2019 01:40
Доклад по информатике 5 класс «обработка информации»...
ритуля51 ритуля51  04.04.2021 17:41
Скласти програму на мові Pascal обробки двовимірного масиву. Визначити значення та індекс мінімального елементу матриці. ( A[1..n,1..n] n=4 . Також застосовувати Uses і...
viktoriy39 viktoriy39  04.04.2021 17:42
1.Виведіть на екран числа від 1 до 100. 2.Виведіть на екран числа від 11 до 33. 3.Виведіть на екран парні числа в проміжку від 0 до 100. 4.Виведіть на екран непарні числа...
Михона Михона  04.04.2021 17:43
только правильно Ввести три числа. Если они могут быть длинами сторон разностороннего остроугольного треугольника, вывести их в порядке возрастания, вычислить площадь полученного...
Darina20041310 Darina20041310  04.04.2021 17:43
За до циклу for виведіть на екран числа від 1 до 100. За до циклу for виведіть на екран числа від 11 до 33. За до циклу for виведіть на екран парні числа в проміжку від...
sashapeterov85 sashapeterov85  04.04.2021 17:43
Выберите любой проект который вы можете сделать с скретч записать тему, цель, задание проекта и сделать план по его выполнению​...
exii exii  05.08.2019 14:00
Скорость передачи данных через adsl-соединение равна 128.000 бит/с. определите наибольший размер файла, который может быть передан через данное соединение за 7 минут. (служебной...
ДимаИванов11 ДимаИванов11  18.05.2020 18:23
В ячейке F2 записана скидка на товар в 62%. В ячейке C2 введена формула. Какая часть формулы записана неверно? Верная запись выглядит следующим образом...
allalal1 allalal1  27.10.2020 16:37
Выбери пословицы, равные по смыслу фразе из сказки: Не подстрелив ясного сокола, рано перья щипать(«Иван — крестьянский сын и чудо-юдо»).Делить шкуру неубитого медведяОтложить...
dodpddpfp dodpddpfp  27.10.2020 16:37
нужно сделать что то вроде графика​...

Популярные вопросы