Создать массив из 100 чисел и найти наибольшее
5-9 класс
|
var
m:array[1..100] of integer;
max,i:integer;
begin
randomize;
max:=m[1];
for i:=1 to 100 do
begin
m[i]:=random(999);
if m[i]>max then max:=m[i];
write(m[i],' ')
end;
write(' Наибольшее ',max);
end.
Другие вопросы из категории
составлении использовали 256-символьный алфавит.
Животноводы - это люди,
Тяжёлая промышленность - это
Лёгкая промышленность - это
Читайте также
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
исходный и конечный массивы.
чисел и выводит на экран этот же массив в прямом и обратном порядке. Протестировать алгоритм на произвольных массивах, состоящих из 1 числа, из 5 чисел, из 10 чисел.
2. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с чётными номерами. Протестировать алгоритм на произвольных массивах размерностью 5 и 8 элементов.
3. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с нечётными номерами в обратном порядке. Протестировать алгоритм для следующих исходных данных:
а) 1 3 5 6 8 9
б) -1 4 6 2 4 6 8 6 9
P.S. Убедительная просьба написать решение целиком и до наступления ночи. Я являюсь дилетантом в Паскале, а эти три задачи являются моим домашним заданием по информатике на завтра.