Информатика | 10 - 11 классы
Дан целочисленный массив A.
Найти в нем два наименьших элемента.
ПАСКАЛЬ!
1)Даны натуральные числа n и k?
1)Даны натуральные числа n и k.
Определить k - ю справа цифру числа n.
2)Дан целочисленный массив A.
Найти в нем два наименьших элемента.
ПАСКАЛЬ!
Дан целочисленный массив А(а1?
Дан целочисленный массив А(а1.
Аn). Отсортировать массив по убыванию, начиная с максимального элемента.
ПАСКАЛЬ.
Дан целочисленный одномерный массив из n - элементов?
Дан целочисленный одномерный массив из n - элементов.
Вывести на экран четные элементы стоящие на нечетных массивов через паскаль.
Дан массив 0из 6 элементов?
Дан массив 0из 6 элементов.
Найти среднее арифметического элементов этого массива.
В паскале.
• Помогите на паскале?
• Помогите на паскале.
Дан целочисленный массив.
Удалить из массива все одинаковые элементы оставив их последние вхождения.
Дан целочисленный одномерный массив, состоящий из n элементов?
Дан целочисленный одномерный массив, состоящий из n элементов.
Найти произведение элементов в промежутке от - 3 до 15.
(Паскаль) Заранее благодарю.
Pascal, Дан целочисленный массив из 30 элементов?
Pascal, Дан целочисленный массив из 30 элементов.
Как найти сумму элементов после первого положительного?
Ввести целочисленный массив состоящий из 17 элементтв?
Ввести целочисленный массив состоящий из 17 элементтв.
Найти сумму и количество положительных элементов .
Паскаль АБС.
40 баллов за простую задачу, помогите пожалуйста, иформатика, Паскаль?
40 баллов за простую задачу, помогите пожалуйста, иформатика, Паскаль!
Дан целочисленный массив из 20 чисел.
Найти сумму и произведение элементов массива.
Дан целочисленный массив n = 11 помогите?
Дан целочисленный массив n = 11 помогите.
На языке паскаля.
Перед вами страница с вопросом Дан целочисленный массив A?, который относится к категории Информатика. Уровень сложности соответствует учебной программе для учащихся 10 - 11 классов. Здесь вы найдете не только правильный ответ, но и сможете ознакомиться с вариантами пользователей, а также обсудить тему и выбрать подходящую версию. Если среди найденных ответов не окажется варианта, полностью раскрывающего тему, воспользуйтесь «умным поиском», который откроет все похожие ответы, или создайте собственный вопрос, нажав кнопку в верхней части страницы.
Const
n = 10 ;
var
a : array[1.
N]of integer ;
i, min, j, min2 : integer ;
begin for i : = 1 to n do begin a[i] : = random(100) ; write(a[i] : 4) ; end ;
min : = a[1] ; j : = 1 ; min2 : = a[1] ;
for i : = 1 to n do if a[i]< ; min then begin min : = a[i] ; j : = i ; end ;
for i : = 1 to n do if (a[i]> ; = min)and(i< ; > ; j)and(a[i]< ; min2)then min2 : = a[i] ;
writeln ;
writeln(min, ' ', min2) ;
end.