Предмет: Информатика,
автор: Noucan
Составить программу, позволяющую в одномерном массиве, состоящем из N вещественных элементов, вычислить: c) количество элементов массива, равных первому элементу
Ответы
Автор ответа:
0
//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.
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.
Автор ответа:
0
Как хорошо было начато... и на тебе - какой-то мерзкий цикл! )))) Skip(1).Where(x->x=a[0]).Count - и всё...
Похожие вопросы
Предмет: Английский язык,
автор: Lopppiiina
Предмет: Экономика,
автор: Аноним
Предмет: Английский язык,
автор: Lopppiiina
Предмет: Химия,
автор: diman8855
Предмет: Обществознание,
автор: valerius1999