tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу, находящую
Написать программу, находящую максимальный элемент массива
naranovnaran08
2 18.06.2019 02:30
1
Ответы
raku13
14.07.2020 21:18
Const n=10;
Var a:array[1..n] of integer;
i,max:integer;
Begin
Randomize;
For i:=1 to n do
Begin
A[i]:=Random(20);
Writeln(a[i],' ');
end;
For i:=1 to n do
begin
If A[i]>max then
max:=a[i];
end;
Writeln('Максимальный элемент: ',max);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
yuluto
20.03.2019 00:00
Чем функция сin отличается от gets в c++? если можно подробно...
влад2314
19.03.2019 23:01
Вывести на экран квадрат первых 10 натуральных чисел....
Шакира228
20.03.2019 00:00
8класс.информатика.напишите . надо! №1.дано целое число,если оно нечётное и при этом не находится в [10; 20],то вывести на экран квадрат этого числа.№2.определить впишется ли квадрат...
dsassaraf
03.11.2020 17:42
Кондратий при виде семёрок начинает нервно втягивать воздух, а при виде чисел, которые делятся на семь, начинает яростно выдыхать воздух. Чтобы Кондратию не стало совсем плохо,...
nik7710
03.11.2020 17:42
Правильно расписать на C++...
kirilln2
16.02.2021 08:06
Движение робота по линии. Урок 1 Выбери режим сравнения яркости отраженного света. Рис. 1е (5)Рис. 2Рис. 4...
and290620041
06.08.2019 02:40
Сочинение рассуждение.куда и зачем едут люди?...
masha859689
06.08.2019 02:40
Вчетырехугольнике abcd ab параллельно cd и ab=cd. ac=10 см, bd=5 см, ab=6,5 см. диагонали четырехугольника пересекаются в точке o. найдите периметр треугольника cod...
lyubaykind
06.08.2019 02:40
Знижувальний трансформатор з коефіцієнтом трансформації 10 підключений до електричного кола напругою 220 в. яка напруга на виході трансформатора,якщо опір вторинної обмотки 0,2...
deminav733
06.08.2019 02:40
Дан выпуклый семиугольник с равными углами найти эти углы...
Популярные вопросы
По три примера тел и выпиши их в клетки таблицы. тела. природные живые: , природные...
3
Почему найманы пнреселились в снмиречье...
2
Впиши примеры в нужные калонки. ( металл, бензин, природный газ, чугун, кислород,...
2
15 существительных с разными орваграммами...
3
Втреугольнике авс угол с=90 градусов ав=10 ас =8 найдите синус а...
3
Решите тригонометрические неравенство: 1) cos 2x 0 2) sin x 1/4...
2
Формула вещества с ковалентной неполярной связью представлены в ряду 1) al2s2,...
1
Высота равнобедренного треугольника проведенная к основанию равна 15 см основание...
3
Молекулярное строение имеет 1) алмаз 2) хлорид натрия 3) углекислый газ 4) железо...
3
Что характерезует поместное землевлодения...
2
Var a:array[1..n] of integer;
i,max:integer;
Begin
Randomize;
For i:=1 to n do
Begin
A[i]:=Random(20);
Writeln(a[i],' ');
end;
For i:=1 to n do
begin
If A[i]>max then
max:=a[i];
end;
Writeln('Максимальный элемент: ',max);
end.