Вопрос по информатике:
С помощью блок схемы или Паскаля. Составь те алгоритм для решения следуюшей залачи. Среди N произвольных вещественных чисел. Найдите количество неравных нулю.
Пожаловаться
- 17.03.2018 21:45
- Информатика
- remove_red_eye 18312
- thumb_up 8
Ответы и объяснения 2
Var n,i,k:integer;
a:array [1..50] of real;
begin
write('Введите целое N = '); readln(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i])
end;
k:=0;
for i:=1 to n do
if a[i]0 then k:=k+1;
writeln('k = ',k)
end.
a:array [1..50] of real;
begin
write('Введите целое N = '); readln(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i])
end;
k:=0;
for i:=1 to n do
if a[i]0 then k:=k+1;
writeln('k = ',k)
end.
Пожаловаться
- 18.03.2018 15:23
- thumb_up 51
// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrReal('Вводите:',ReadInteger('n='));
Writeln('Количество нулевых равно ',a.Where(x->x=0).Count)
end.
Пример
n= 8
Вводите: 3 1.5 -2.4 0 8 0 0.2 1
Количество нулевых равно 2
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrReal('Вводите:',ReadInteger('n='));
Writeln('Количество нулевых равно ',a.Where(x->x=0).Count)
end.
Пример
n= 8
Вводите: 3 1.5 -2.4 0 8 0 0.2 1
Количество нулевых равно 2
Пожаловаться
- 19.03.2018 16:51
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы