Вопрос по информатике:
Дано целое число n и массив случайных чисел x[1..n].все элементы,меньше 2,заменить нулями.Кроме того,получить сумму и количество элементов,п ринаднежащих отрезку [3;7]
Пожаловаться
- 02.03.2018 08:18
- Информатика
- remove_red_eye 16535
- thumb_up 26
Ответы и объяснения 1
Var i,n,r,k: integer;
s: array [1..50] of integer;
Begin
Write('n=');
Read(n);
for i:= 1 to n do
begin
s[i]:= random(100);
Writeln(s[i]);
end;
for i:= 1 to n do
if s[i]<2 then s[i]:=0;
r:=0;
k:=0;
for i:= 3 to 7 do
begin
k:=k+1;
r:= r+s[i];
end;
WriteLn ('kol=', k);
WriteLn ('sum=', r);
end.
s: array [1..50] of integer;
Begin
Write('n=');
Read(n);
for i:= 1 to n do
begin
s[i]:= random(100);
Writeln(s[i]);
end;
for i:= 1 to n do
if s[i]<2 then s[i]:=0;
r:=0;
k:=0;
for i:= 3 to 7 do
begin
k:=k+1;
r:= r+s[i];
end;
WriteLn ('kol=', k);
WriteLn ('sum=', r);
end.
Пожаловаться
- 03.03.2018 10:08
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы