Вывести количество отрицательных, положительных и равных нулю элементов массива

14.04.2014, 18:07. **Показов** 1623. **Ответов** 2

дан целочисленный массив из 30 элементов.Вывести количество отрицательных,положительных и равных нулю элементов(массив записать в 1.txt)
Напишите,пожалуйста, код к этой программе!

@kastiniel · 14.04.2014, 18:19

Pascal

const n=30;
var i,kol1,kol2,kol3:integer;
     a = arrray[1..n] of integer;
     f1:text;
Begin
assign(f1, 'file1.txt'); 
rewrite(f1);    
for i:=1 to n do
 begin
 readln(a[i]);
 writeln(f1,a[i]);
end;
close(f1);
kol1:=0;kol2:=0;kol3:=0;
for i:=1 to n do
 begin
  if (a[i]>0) then inc(kol1);
  if (a[i]<0) then inc(kol2);
  if(a[i]=0) then inc(kol3);
 end;
 writeln('>0-',kol1);
 writeln('<0-',kol2);
  writeln('=0-',kol3);
 
End.

вроде так

@~~lodret~~ · 14.04.2014, 18:21

Pascal

uses crt;
var a:integer;
array[1..30] of integer;
if a<0 then write('отрицаетльный');

я не прогер конечно но кое-что умею

Lalalaa
		1
	Вывести количество отрицательных, положительных и равных нулю элементов массива 14.04.2014, 18:07. Показов 1623. Ответов 2 Метки нет (Все метки) дан целочисленный массив из 30 элементов.Вывести количество отрицательных,положительных и равных нулю элементов(массив записать в 1.txt) Напишите,пожалуйста, код к этой программе! __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь

Опции темы

Вывести количество отрицательных, положительных и равных нулю элементов массива

Решение