Составить программку, дозволяющую в одномерном массиве, состоящем из N вещественных

Составить программку, дозволяющую в одномерном массиве, состоящем из N вещественных частей, вычислить: c) количество элементов массива, равных первому элементу

Задать свой вопрос
Пашок Торопцев
Паскаль?
1 ответ
//PascalABC.Net 3.2
begin
var count:=0;
var a:=ReadArrReal('Вводите', readinteger('Кол-вo частей: '));
for var i:=1 to length(a)-1 do if a[i]=a[0] then inc(count);
write (count)
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт