Informatică, întrebare adresată de HipsterCatt12345888, 8 ani în urmă

Am novoie de mare ajutor! Ofer 44 de puncte, cine ma ajută la informatică?
Se considera un tablou unidimensional din n elemente si un n umar intreg x. Elaborati un program care va afisa cate elemente ale tabloului sunt mai mari ca x


iboom3421: sigur e unidimensional? nu cumva e 2D?
HipsterCatt12345888: Da e unidimensionar. Dar am nevoie in limbaj Pascal doar (
iboom3421: a. atunci nu te pot ajuta.
iboom3421: stiu doar c++.
HipsterCatt12345888: Bine

Răspunsuri la întrebare

Răspuns de MrToF
1

#include <iostream>

using namespace std;

int main()

{int n,x,nr=0;

cout<<"n=";cin>>n;

cout<<"x=";cin>>x;

for(int i=1 ; i<=n ; i++)

      if(i>x)

           nr=nr+1;

cout<<nr;

return 0;}


HipsterCatt12345888: Poți face soluția în Pascal nu in C++
boiustef: da, eu pot in pascal...
boiustef: varianta pascal....
program nov13;
var n, i, x, contor_x: integer;
vector: array[1..100] of integer;
begin
write('n='); readln(n);
writeln('introdu ',n,' elemente ale vectorului:');
for i:=1 to n do
begin
write('v[',i,']='); readln(vector[i]);
end;

write('x='); readln(x);
for i:=1 to n do
if vector[i]>x then inc(contor_x);

writeln('sunt ',contor_x,' elemente mai mari decat ',x);
end.
Răspuns de sirDumitru
1

//fpc 3.0.0

program Brainly;

var tablou:array[1..50] of integer;

x,i,n,contor : integer ;

begin

    writeln('Dati marimea tabloului:');

    readln(n);

    for i:=1 to n do begin  

     

    readln(tablou[i]);

     

    end;

   

    writeln('Dati x:');

    readln(x);

    contor:=0;

     

    for i:=1 to n do begin

    if (tablou[i] > x) then contor:=contor+1;

    end;

   

    writeln(contor,' elemente sunt mai mari ca x!');

end.



sirDumitru: Dacă nu
sirDumitru: Îți este greu, oferă-mi coroana. ;)
Alte întrebări interesante