Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.03.2016 05:01
- Информатика
- remove_red_eye 11443
- thumb_up 9
Ответы и объяснения 1
2)
var min:Integer;
const n=10;
var b:array[1..n] of Integer:= (1,2,4-6,3,-1,0,-5,-6,2,-2);
begin
min:=Integer.MaxValue;
for var i:= 1 to n do
if b[i]
WriteLn(min);
end.
3)
var c:Integer;
const n=7;
var a:array[1..n] of Integer:= (1,2,4,-6,3,-1,0);
begin
for var i:= 1 to n do
if a[i]<0 then
c+=1;
WriteLn(c);
end.
- 26.03.2016 08:37
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.