Дан одномерный массив В(10). Подсчитать количество элементов массива, меньших числа 5. Числа массива ввести с клавиатуры. Составить на языке Паскаль.

Чтобы заполнить массив в Паскале элементами, введенными с клавиатуры, можно использовать следующий код:

arduino

Copy code

var

 arr: array[1..10] of integer; // объявление массива из 10 элементов

 i: integer; // счетчик цикла

begin

 for i := 1 to 10 do // цикл по всем элементам массива

 begin

   write('Введите ', i, '-й элемент массива: '); // выводим приглашение для ввода

   readln(arr[i]); // считываем значение с клавиатуры и сохраняем в i-м элементе массива

 end;

end.

В данном примере мы объявляем массив arr из 10 целых чисел и заполняем его элементы в цикле for. При каждом проходе цикла выводится приглашение для ввода элемента с процедуры write, а затем считывается значение элемента с клавиатуры и сохраняется в соответствующем элементе массива с функции readln.

caps lock,shift

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.