Информатика | 10 - 11 классы
Помогите решить задачи в Pascal 1.
Поменять местами максимальный и минимальный элемент массива.
2. Вывести четные числа среди положительных элементов 3.
Напечатать сумму и номера положительных элементов после первого нулевого элемента.
Паскаль?
Паскаль.
Вычислить разность максимального среди элементов, имеющих четные значения, и максимального среди элементов, имеющих нечетные значения, в заданном целочисленном массиве из 30 положительных элементов (в предположении, что в массиве есть и четные, и нечетные элементы).
Помогите пожалуйста решить задачудан массив A[5]?
Помогите пожалуйста решить задачудан массив A[5].
Найти наименьший положительный элемент среди элементов с четными номерами массива.
Поменять местами минимальный и первый элементы массива?
Поменять местами минимальный и первый элементы массива.
Определить максимальный и минимальный элементы среди положительных нечётных элементов целочисленного массива Х?
Определить максимальный и минимальный элементы среди положительных нечётных элементов целочисленного массива Х.
Удалить из массива все нулевые элементы.
Пожалуйста, очень надо, нет времени писать прогу.
Даю 20 баллов!
Дан массив целых чисел?
Дан массив целых чисел.
Поменять местами первый максимальный (если таковых несколько) и последний минимальный (если таковых несколько) по значению элементы массива.
Число элементов в массиве не более 10 - ти Pascal.
1) Удвоить все элементы массива?
1) Удвоить все элементы массива.
2)Найти сумму элементов двух массивов одинаковой размерности.
4) Найти Минимальные элементы массива и его индекс.
5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива 7) Определить количество максимальных элементов массива P.
S Ребят, все в паскале.
Заранее спасибо = *.
Напишите пожалуйста программу, которая находит максимальный и минимальный из элементов массива с четными положительными значениями?
Напишите пожалуйста программу, которая находит максимальный и минимальный из элементов массива с четными положительными значениями.
Если в массиве нет элементов с четными положительными значениями, нужно вывести сообщение об этом.
С объяснением!
Дан массив состоящий из 30 элементов?
Дан массив состоящий из 30 элементов.
Найти в массиве максимальный элемент, вывести его значение и номер на экран.
Отрицательный элемент массива заменить на равные по модулю положительные элементы.
Помогите пожалуйста : записать чётные положительные элементы целочисленных массивов X и Y в массив Z?
Помогите пожалуйста : записать чётные положительные элементы целочисленных массивов X и Y в массив Z.
Поменять минимальный и максимальный элементы массива Z.
Вывести элементы массива Z в четверичной системе счисления .
Дано : Массивы А(10), В(15)?
Дано : Массивы А(10), В(15).
Поменять местами их первые положительные элементы .
Для нахождения первого положительного элемента и его номера в массиве использовать подпрограмму.
Сделать в паскале.
На этой странице вы найдете ответ на вопрос Помогите решить задачи в Pascal 1?. Вопрос соответствует категории Информатика и уровню подготовки учащихся 10 - 11 классов классов. Если ответ полностью не удовлетворяет критериям поиска, ниже можно ознакомиться с вариантами ответов других посетителей страницы или обсудить с ними интересующую тему. Здесь также можно воспользоваться «умным поиском», который покажет аналогичные вопросы в этой категории. Если ни один из предложенных ответов не подходит, попробуйте самостоятельно сформулировать вопрос иначе, нажав кнопку вверху страницы.
1) / / здесь нужно объявить количество элементов или ввести с помощью readln
var
a : array [1.
N] of integer ;
i : integer ;
min : integer ;
max : integer ;
minnum : integer ;
maxnum : integer ;
begin / / здесь должен быть ввод значений массива в цикле / / for i : = 1 to N do
a[i] = Random(100) ; или через readln ;
min : = a[1] ;
minnum : = 1 ;
max : = a[1] ;
maxnum : = 1 ;
for var i : = 2 to N do
begin if a[i]< ; min then begin min : = a[i] ; minnum : = i ; end ; if a[i]> ; max then begin max : = a[i] ; maxnum : = i ; end ;
end ;
a[maxnum] = min ;
a[minnum] = max ; / / здесь вывод нового массива
end.
2)
for i : = 1 to N do
if a[i]> ; 0 then if a[i] mod 2 = 0 then write(a[i], ' ') ;
3)
var
sum : integer ;
start : integer ;
for i : = 1 to N do
if a[i] = 0 then start = i + 1 ; / / / / нашли первый нулевой, начинаем дальше со следующего
for i : = start to N do
begin
if a[i]> ; 0 then begin sum = sum + a[i] ; write(i, ' ') ; / / / номер положительного элемента end ;
writeln ;
write('Сумма = ', sum) ;
end ;