знайти найменше число елементу масиву з 10(в паскалях)
5-9 класс
|
будь ласка терміново
program gt;
var a:array[1..100]of longint;
i,min,n:longint;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
end;
min:=a[1];
for i:=2 to 10 do
begin
if(a[i]<min)then min:=a[i];
end;
write(min);
end.
здесь числа задается случайным набором(компьютером)
2)
program gt;
var a:array[1..100]of longint;
i,min,n:longint;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
end;
min:=a[1];
for i:=2 to n do
begin
if(a[i]<min)then min:=a[i];
end;
write(min);
end.
здесь сначала задаем 10 потом 10 чисел
Другие вопросы из категории
красной фигурой;треугольник не синий и не зеленый; квадрат лежит между треугольник и белой фигурой.Дайте ответы на след. вопросы : 1) Из бумаги какого цвета вырезан квадрат? 2)Из бумаги какого цвета вырезан круг? 3)Из бумаги какого цвета вырезан ромб? 4)Из бумаги какого цвета вырезан треугольник?
прибавить элемент с номером а, из всех нулевых вычесть число
Читайте также
Задание 5.Дополните программу из задания 4 так , чтобы на экран выводились числа от 1 до 10,а также квадраты и кубы этих чисел в следующем виде:
1 1 1
2 4 8
3 9 27
... ... ...
10 100 1000
ПОМОГИТЕ ПОЖАЛУЙСТА,ЗАДАНИЕ 4 ПИСАТЬ НЕ НУЖНО !ПОСТАВЛЮ ЛУЧЩИЙ ОТВЕТ И "СПАСИБО"
он прибовляет число но не меньше 10 и т.д. до тех пор , пока ок. Суммой не окажется 100.Выигравает тот , кто первым достигает 100. Как должен действовать первый игрок , чтобы выйграть .
Вход:N,M<=10^10000;
Выход:Наибольшее число;
>
3 3 3 3=3
3 3 3 3=4
3 3 3 3=5
3 3 3 3=6
3 3 3 3=7
3 3 3 3=8
3 3 3 3=9
3 3 3 3=10
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.