Вопрос по информатике:
Ввести массив X(X1,x2,...x10).Подсчитать количество элементов,чьё значение больше 1,а также найти сумму отрицательных элементов.(Pascal)
Пожаловаться
- 01.07.2018 23:14
- Информатика
- remove_red_eye 18556
- thumb_up 21
Ответы и объяснения 2
Const
N = 10;
Var
X:array[1..N] of integer;
i,k:integer;
S:real;
Begin
k:=0;
S:=0;
WriteLn('Введите массив A[',N,']:');
For i:= 1 to N do
Begin
Read(X[i]);
if X[i]>1 then k:=k+1
else if X[i]<0 then S:=S+X[i];
End;
WriteLn('k = ',k);
WriteLn('S = ',S);
End.
N = 10;
Var
X:array[1..N] of integer;
i,k:integer;
S:real;
Begin
k:=0;
S:=0;
WriteLn('Введите массив A[',N,']:');
For i:= 1 to N do
Begin
Read(X[i]);
if X[i]>1 then k:=k+1
else if X[i]<0 then S:=S+X[i];
End;
WriteLn('k = ',k);
WriteLn('S = ',S);
End.
Пожаловаться
- 02.07.2018 11:12
- thumb_up 8
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadArrInteger('10 чисел:',10);
Writeln('Кол-во элементов, больших 1: ',x.Where(m->m>1).Count);
Writeln('Сумма отрицательных: ',x.Where(m->m<0).Sum)
end.
Пример
10 чисел: -5 0 12 7 0 -4 -2 5 -2 5
Кол-во элементов, больших 1: 4
Сумма отрицательных: -13
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadArrInteger('10 чисел:',10);
Writeln('Кол-во элементов, больших 1: ',x.Where(m->m>1).Count);
Writeln('Сумма отрицательных: ',x.Where(m->m<0).Sum)
end.
Пример
10 чисел: -5 0 12 7 0 -4 -2 5 -2 5
Кол-во элементов, больших 1: 4
Сумма отрицательных: -13
Пожаловаться
- 03.07.2018 17:28
- thumb_up 20
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы