Учебник. К.Ю Поляков, Е.А. Ерёмин. Информатика. 10 класс. Углублённый уровень. §63 Алгоритмы обработки массивов
Задача A. Сколько равно X?
PASCAL
program p63A;
var
n, i, X, k: integer;
v: array of integer;
begin
readln(n); //количество элементов массива
SetLength(v, n); //выделение памяти под массив
for i := 0 to n - 1 do read(v[i]);
read(X);
k := 0;
for i := 0 to n - 1 do
if v[i] = X then k := k + 1;
write(k);
end.
C++
#include
using namespace std;
int main()
{
int *v;
int n;
int i, X, k;
cin >> n; //количество элементов массива
v = new int*[n]; //выделение памяти под массив
for (i=0; i
k = 0;
for (i=0; i
delete []v;
return 0;
}