Массивтің теріс элементтерінің санын есептеуге программа құру? [жабық]

Question

Маған тез арада осы программаны құру керек. Массивтің теріс элементтерінің санын есептеуге программа құру?

Answer 1

Program HelloWorld;

uses crt;

var I,s:integer;

A:array[I...n] of real;

begin

Clrscr; s:=0;

writeln('Massiv elementterinin sani=');

readln(n);

for i:=1 to n do

begin

writeln('a[',I,']-?');

Readln(a[i]);

End;

For i:=1 to n do

begin

If (a[i]<0 then s:=s+1);

end;

writeln('massivtegi teris elementter sani= ',s);

end.

Comments

C++ тілінде

#include <iostream>
#include <conio.h>
#include <math.h>
using namespace std;
void main()
{
int i,n,k=0;
cout<<" N=";
cin>>n;
int *a=new int[n];

   cout<<"\n Enter elements: ";
for(i=0;i<n;i++)

    cin>>a[i];
for(i=0;i<n;i++)
if(a[i]<0) k++;
cout<<"\n\n k="<<k;
delete[]a;
getch();

 }

Answer 2

program HelloWorld;

uses crt;

var I:integer;

A:array[I...5] of integer;

begin

Clrscr;

for i:=1 to 5 do

begin

writeln('a[',I,']-?');

Readln(a[i]);

End;

For i:=1 to 5 do

begin

If (a[i]>0 then writeln('a[',I,']=',a[i]));

end;

end.

Comments

Бұл программа 5 элементті массивтің оң элементтерін экранға шығарады