Навигация

Поиск по сайту

Последние новости

Новое в блогах

Родители - За безопасность детей!
Администрация, педагог
Начало
Лихоманенко Николай Иванович, педагог
Лето с футбольным мячом!
Печалёва Елена Борисовна, педагог
Дружно отдыхаем, дружно пищу поглощаем!
Печалёва Елена Борисовна, педагог
Открытие лагеря "Солнышко"
Печалёва Елена Борисовна, педагог

10 класс. П.63 Задача A. Алгоритмы обработки массивов

   Учебник. К.Ю Поляков, Е.А. Ерёмин. Информатика. 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;
}