tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Задан одномерный массив
Задан одномерный массив из 10 эллементов составить программу которая выводит и находит максимальный эллемент массива
Артём89535014367
3 02.06.2019 03:20
0
Ответы
vafla3121
02.07.2020 23:48
Var a:array[1..10] of integer;
i,m:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(11);
m:=1;
for i:=1 to 10 do
if a[i]>a[m] then m:=i;
writeln(a[m]);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Nikaslavnikova
21.04.2020 11:29
Дан массив в [-54,33]. Упорядочить по убыванию...
Soto350
21.10.2020 11:43
X10-X2 X2-X10 X1-X8 X10-X16 135 11011 1324 385...
danilp18
21.10.2020 11:44
надо решить информатику! Дам 50₽ на киви...
Lyrryface
09.05.2021 23:20
Между населенными пунктами а б с д е f. определите длину кратчайшего пути между пунктами a и f....
вика36100
07.08.2019 23:50
Постойте таблицы истинности a∧(b∨c)∨a∨(b∧c)...
ruchev06
10.03.2021 18:55
Заданне 4 ( ). Составить программу и блок-схему для вычисления суммы плоаддей всех квадратов, стороны которых изменяется в школе от 1до 10В отчет snown тексты программ...
280605
08.06.2019 19:30
Что можно сказать о движении точки,если касательное ускорение направлено в ту же сторону,что и скорость; противоположно скорости...
Камелек
08.06.2019 19:30
Какой жанр относится к лироэпическим?...
Бетти2004
08.06.2019 19:30
Найдите значение выражения корень из 49 третьей степени*на корень из 49 шестой степени...
Шпунтя
08.06.2019 19:30
Нужно для подготовки к гиа. отличие пассивного, формального, всеобщего и равного избирательных !...
Популярные вопросы
На протяжении противаположных сторон пераллелограмма abcd отложены...
3
Один урок идет 45мин.во сколько законьчится...
2
Складіть твір про шкільні правила або класні правила не менше...
2
Пожта с 6. нужно свой текст написать от себя....
3
Вчём преимущество океана и джунглей ?...
3
Расставьте ударение в словах. августовский, валовой, грошовый,...
2
Решить (64+137)×28×910-560772÷9 решение...
2
Собранный картофель фермер положил на хранение в 2 бурса в одном...
2
Герундий или инфинитив? употребите правильную форму глагола в...
3
Наиболее широкая область применения пластмасс это? в слове 8 букв....
1
i,m:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(11);
m:=1;
for i:=1 to 10 do
if a[i]>a[m] then m:=i;
writeln(a[m]);
end.