Пользователь вводит целые числа в цикле. Запишите в массив целых чисел (из 3 элементов) все нечетные отрицательные. Как только массив будет заполнен, завершите цикл ввода новых значений пользователем и распечатайте полученный массив.
Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.
var i, max: integer;
a: array [1..7] of integer;
begin
for i:=low(a) to high(a) do
begin
write('Введите элемент массива номер ', i, ': ');
readln(a[i]);
end;
max := a[1];
for i:=1 to 7 do
if a[i] > max then max := a[i];
write('Максимальный элемент массива равен ', max);
readln();
end.
Пользователь вводит 7 чисел одно за другим, сохраните их в массив, выведите этот массив на экран.
Примечание: вывод значений массива сделайте в отдельном цикле.
var i: integer;
a: array [1..7] of integer;
begin
for i:=low(a) to high(a) do
begin
write('Введите элемент массива номер ', i, ': ');
readln(a[i]);
end;
for i:=1 to 7 do
write(a[i], ' ');
readln();
end.
Напишите программу, которая будет заполнять массив из 10 элементов случайными числами из диапазона от 0 до 20, при этом в полученном массиве не должно быть одинаковых значений.
Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента, например для M=4:
8101214четыре числа 316182022четыре числа 3....3....и т.д.