1 Заполнить массив целыми числами с клавиатуры. Вывести все элементы массива
1 Заполнить массив целыми числами с клавиатуры. Вывести все элементы массива на экран в столбец.
2 Заполнить массив по заданной формуле m[i]:=5i-i. Отыскать сумму всех
частей массива.
3 Заполнить массив случайными целыми числами (0-10). Найти сумму четных и нечетных значений.
4 Заполнить массив по данной формуле m[i]:=i-2i. Вывести все четные значения массива.
5 Заполнить массив целыми числами с клавиатуры. Найти творенье всех частей массива.
6 Заполнить массив целыми числами с клавиатуры. Найти творенье нечетных частей массива.
7 Заполнить массив случайными целыми числами в промежутке от 0 до 18. Найти наибольший элемент среди всех чисел массива и указать его номер.
8 Заполнить массив целыми числами с клавиатуры. Отыскать меньший четный элемент массива и указать его номер..
9 Заполнить массив случайными целыми числами в промежутке от 35 до 89.Подсчитать количество частей кратных трем.
10 Заполните массив температурой. Обусловьте, в какой из дней была самая высочайшая, самая низкая температура, какой была средняя температура с 15 до 25 числа.
РЕБЯТ ПОМОГИТЕ!!!
Внимание! Если программа не работает, обновите версию!
3. Заполнить массив случайными целыми числами (0-10). Отыскать сумму четных и нечетных значений.
begin
var a:=ArrRandom(ReadInteger('n='),0,10); a.Println;
var so:=a.Where(t-gt;t.IsOdd).Sum;
var se:=a.Where(t-gt;t.IsEven).Sum;
Writeln('Сумма четных значений одинакова ',so,', нечетных ',se)
end.
Пример
n= 15
4 2 1 9 1 1 6 5 10 8 3 9 7 7 9
Сумма четных значений одинакова 52, нечетных 30
5. Заполнить массив целыми числами с клавиатуры. Отыскать творение всех частей массива.
Ограничим ввод нулем, поскольку ввод нуля обнулит все творенье.
begin
ReadSeqIntegerWhile(t-gt;tlt;gt;0).Aggregate(BigInteger(1),(p,q)-gt;p*q).Println
end.
Пример
-4523 235423 6734532 2342354 67345423 2342342 -43532423 0
115347094687898985235964440890392383424914416
7. Заполнить массив случайными целыми числами в промежутке от 0 до 18. Отыскать наибольший элемент посреди всех чисел массива и указать его номер.
begin
var a:=ArrRandom(ReadInteger('n='),0,18); a.Println;
var imax:=a.IndexMax;
Writeln('Наивеличайший элемент ',a[imax],' имеет номер ',imax+1)
end.
Пример
n= 13
1 4 8 18 14 14 7 1 12 15 16 12 11
Величайший элемент 18 имеет номер 4
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Русский язык.
Русский язык.
Разные вопросы.
Қазақ тiлi.
Английский язык.
Математика.
История.
Экономика.
Экономика.