Предмет: Информатика,
автор: Аноним
2. Дан числовой массив А, состоящий из п натуральных чисел. Определите количество элементов массива, которые больше заданного числа. (3 балла)
Ответы
Автор ответа:
0
Program Free Pascal 2.6.0;
Uses crt;
const n = 5; // например 5
var A:array [1..n] of integer;
i,col:integer;
begin
clrscr;
col:=0; // Кол-во элементов больших заданного изначально = 0
for i:=1 to n do
begin
read(A[i]); // Заполняем массив произвольными числами
if (A[i]>n) then col:=col+1; // Если введенное число больше задонного (>5), то кол+1
end;
writeln;
writeln('Кол-во элементов больших заданного: ',col);
readkey;
end.
Похожие вопросы
Предмет: Информатика,
автор: MatrixOfsciences
Предмет: Биология,
автор: lolek1223
Предмет: Математика,
автор: loshadkaalisa
Предмет: Математика,
автор: Liza29042003