Вопрос по информатике:
дан целочисленный массив из 30 элементов.Вывести количество отрицательных,положительных и равных нулю элементов(массив записать в 1.txt)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 12.05.2018 14:15
- Информатика
- remove_red_eye 13843
- thumb_up 25
Ответы и объяснения 2
Program i5;
var
s,d,r,i: integer;
a:array [1..30] of integer;
begin
for i:=1 to 30 do
readln(a[i]);
s:=0;
d:=0;
r:=0;
for i:=1 to 30 dot
begin
if a[i]<0 then
s:=s+1;
if a[i]>0 then
d:=d+1;
if a[i]=0 then
r:=r+1;
end;
writeln(s,'_',d,'_',r);
end.
- 14.05.2018 00:58
- thumb_up 47
Var t:text;
a:array[1..30] of integer;
i,m,b,r:integer;
begin
assign(t,'output.txt');
rewrite(t);
for i:=1 to 30 do begin
read(a[i]);
if a[i]>0 then b+=1
else if a[i]<0 then m+=1
else r+=1;
write(t,a[i],' ');
end;
write(m,' ',b,' ',r);
close(t);
end.
- 14.05.2018 23:37
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.