с заданиями! Задание 1 ( Составить программу в Паскале для обработки одномерного массива из 15 чисел. Значения элементов массива задать с клавиатуры самостоятельно. Найти наименьший элемент массива и его номер. В отчет включить программный код и результат работы программы в виде скриншота. Программная реализация обязательна. Задание 2 ( ). Составить программу в Паскале для обработки одномерного массива из 10 чисел Х = (-17, 3; 13, 2; -7; -2, 36; 123, 4; -0, 3; 12, 356; 142; 0; -1). Вычислить количество элементов массива с нечетными номерами на отрезке [5, 1 … 32, 4]. В отчет включить программный код и результат работы программы в виде скриншота. Программная реализация обязательна.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Дано натуральное число. Определить какая цифра встречается чаще: 0 или 9 Нужна программа на питоне
Автор: YekaterinaAbinskov
Опишите что такое постановка задачи. (8 пунктов) *
Автор: borisova-Sergeevna
Чим відрізняються навчальні проекти від інших
Автор: chermen40
===== PascalABC.NET =====
begin
// 1
var a := ArrRandom(7, -4, 5);
a.Println;
// 2
var b := ReadArrInteger('Введи 8 чисел:', 8);
Println('Сумма четных:', b.Where(p -> p.IsEven).Sum);
var p := b.Where(p -> p > 4).DefaultIfEmpty.Product;
if p >0 then
Println('Произведение элементов, больших 4:', p)
else
Println('Нет элементов, больших 4');
// 3
var c := ArrRandom(10, -14, 7);
c.Println;
Print('Минимальный элемент, больший 5');
var m := c.Where(p -> p > 5).DefaultIfEmpty.Min;
if m = 0 then
Println('отсутствует')
else
Println('равен', m);
var im := c.IndexMin;
Println('Миниммальный элемент номер', im + 1, 'равен ', c[im])
end.