Пользователь вводит целые числа в цикле. Запишите в массив целых чисел (из 3 элементов) все нечетные отрицательные. Как только массив будет заполнен, завершите цикл ввода новых значений пользователем и распечатайте полученный массив.
У вас есть массив из 8 элементов. Пользователь вводит любые символы (после каждого нажимает Enter), до тех пор пока не введет символ решетки #
Задача: сохранить в массив символы, которые ввел пользователь (до символа # или до окончания места в массиве) и вывести их на экран, значения не используемых ячеек массива выводиться не должны.
Пользователь вводит 7 чисел одно за другим, сохраните их в массив, выведите этот массив на экран.
Примечание: вывод значений массива сделайте в отдельном цикле.
Задайте в коде программы массив из семи чисел:
1 12 45 6 7 18 99
Затем обойдите это массив, выводя его значения на экран.
type
myArr = array[1..7] of integer;
var
a: myArr;
i : integer;
begin
a[1] := 1;
a[2] := 12;
a[3] := 45;
a[4] := 6;
a[5] := 7;
a[6] := 18;
a[7] := 99;
for i := low(a) to high(a) do
write(a[i],' ');
readln();
end.
Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой". ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму, т.е. для каждой строки вы должны каждый раз (причем один раз для одной строки) вызывать эту подпрограмму.
Напишите процедуру, которая принимает переменную целого типа по ссылке, просит пользователя ввести значение в консоли и инициализирует переменную этим значением (убедитесь, что в теле программы значение изменилось).
var a, b, c: integer;
procedure sum(q, w, e: integer);
begin
writeln(q + w + e);
end;
begin
writeln('write 3 nums');
readln(a,b,c);
sum(a,b,c);
readln();
end.