Дан одномерный массив В(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.
var a: array [1..12] of real;
var ai, sum: real;
var i, count: integer;
begin
for i: = 1 to 12 do begin
read(ai);
a[i]: = ai;
end;
sum: = 0;
count: = 0;
for i: = to 12 do begin
if a[i] > 0 then begin
sum: = sum + a[i];
count: = count + 1
end
end;
writeln(sum / count)
end.
ответ:
объяснение:
program arraysum;
var
numbers : array[1..18] of real;
result : real;
i : integer;
begin
result : = 0;
for i: = 1 to 18 do begin
write('input ', i ,'th element of array');
readln (numbers[i]);
end;
for i: = 1 to 18 do begin
if numbers[i] < 10 then result : = result + numbers[i];
end;
writeln('result = ', result: 5: 2);
end.