Вывести на экран элементы, расположеные перед первым минимальным . массив, паскаль
10-11 класс
|
uses crt;
var n,i,min,ind:integer;
a:array[1..100] of integer;
begin
writeln('Input "n" and elements of array: ');
read(n);
read(a[1]);
min:=a[1];
ind:=1;
for i:=2 to n do
begin
read(a[i]);
if a[i]<min then
begin
min:=a[i];
ind:=i;
end;
end;
for i:=1 to ind-1 do
write(a[i],' ');
end.
uses crt;
const N=5;
var a: array [1..N] of integer;
x,min:integer;
begin
for x:=1 to N do
begin
write('a[',x,']:');
readln(a[x]);
end;
min:=1;
for x:=1 to N do
if a[x]<a[min] then min:=x;
writeln;
for x:=1 to min-1 do
writeln('a[',x,']:',a[x]);
end.
Другие вопросы из категории
перечисленных элементов и его значению вычислить площадь круга
порядка n. Преобразовать
файл, удалив из каждой матрицы элементы побочной диагонали.
Я не могу сочинить этот "алгоритм", помогите ;)
Блок-схемы строить не надо, просто описать, что надо делать.
Распределение жилого фонда городского района по типу квартир
№ п./п. Группы квартир по числу комнат Число квартир, (тыс. ед.)
1. Одно 10
2. Двух 35
3. Трех 30
4. Четырех 15
5. Пяти 5
Всего 95
начало
ввод A,B,C
A>B
да нет
A>C B>C
да нет да нет
D:=A D:=C D:=B D:=C
вывод D
конец
Читайте также
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
2.Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки.
3.Пользователем вводится 2 целых числа. Вывести на экран сумму положительных четных чисел, находящихся в границах диапазона, указанного пользователем.
4. В результате работы программы формируется массив, состоящий из 10 элементов и заполненный случайными числами от 0 до 100. Вывести на экран этот же массив в порядке возрастания.
5.Вводится строка, содержащая буквы и цифры разного регистра (т.е. строчные и прописные буквы). В результате работы программы на экран выводится строка следующего вида: цифры в порядке возрастания, строчные буквы по алфавиту, прописные буквы по алфавиту.
каждый его элемент был равен утроенному значению его порядкового номера (индекса). 3. Ввести массив с клавиатуры, найти и вывести сумму элементов массива. 4. Ввести массив с клавиатуры, подсчитать, сколько в нем положительных элементов, а сколько отрицательных. 5. В одномерном массиве подсчитать, сколько отрицательных элементов находится на четных местах и сколько положительных на нечетных. 6. Элементы массива вводятся с клавиатуры, заменить в нем все отрицательные элементы их квадратами, а положительные кубами. Вывести на экран исходный и новый массив. 7. Ввести массив с клавиатуры, найти и вывести на экран максимальный и минимальный элементы. 8. Написать программу, которая определяет есть ли в массиве элемент введенный пользователем, подсчитывает их количество и выводит номер первого найденного элемента.
вывести полученную матрицу на экран.
экран с 20 по 50 в строку через пробел
2.для первыз десяти элементов найти среднее арифмитическое
3.вывести на экран только четные элементы с 1 по 10 элементы массива
4.найти сумму нечетныз значений с 20 по 50 элемент
5.найти количество элементов кратныз заданному числу,введёного с клавиатуры среди всез элементок линейного массива