Подсчитать количество элементов линейного массива меньше чем заданное число. Pascal abc
Подсчитать количество элементов линейного массива меньше чем заданное число. Pascal abc
Гость
Ответ(ы) на вопрос:
Гостьvar
a:array[1..10] of integer;
i,k,l:integer;
begin
for i:=1 to 10 do begin
write(i,'-й элемент: ');
readln(a[i]);
end;
write('Введите сравнительное число: ');
readln(l);
writeln('Вычисляем...');
k:=0;
for i:=1 to 10 do
if a[i]
Не нашли ответ?
Похожие вопросы