Помогите пожалуйстаДан массив из 10 элементов. Ввести этот массив с клавиатуры.

Помогите пожалуйста
Дан массив из 10 частей. Ввести этот массив с клавиатуры. Отыскать количество элементов одинаковых 5
Самостоятельная из 9 класса

Задать свой вопрос
Саша Суравекина
Паскаль?
Valerij Dynkov
Да
Andrej Mamitov
Я, вроде как, у творца спрашиваю.
Ульяна Лундак
Наверняка
Varvara Skoropljas
Да паскаль
1 ответ
Язык: Pascal

var i, k: integer;
a: array[1..10] of integer;

begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do if a[i] = 5 then k := k+1;
writeln(k);
end.
Вадим
А что оно должно выводить?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт