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

se citeste un sir de 4 nr naturale. sa se afiseze indexul celui mai mare element​


boiustef: eşti din rep mold... :))) Ghiceşte de unde am aflat,,,
pascal sau c++ ??
NekuSenpai: nup
boiustef: nu pascal?
NekuSenpai: nu rep Moldova

Răspunsuri la întrebare

Răspuns de boiustef
1

************************ varianta c++ ********************

#include <iostream>

using namespace std;

int main()

{

   int num, i, nmax, imax;

   cout << "introdu 4 numere: " << endl;

   cin >> num;

   nmax=num; imax=1;

   for (i=2; i<=4; ++i)

   {

       cin >> num;

       if (num>nmax)

       {

           nmax=num; imax=i;

       }

   }

   cout << "Indicele celui mai mare num[r este " << imax;

}

************************* varianta pascal *****************

program index;

var num, nmax, imax, i: integer;

begin

 writeln('introdu 4 numere:');

 read(num); nmax:=num; imax:=1;

 for i:=2 to 3 do

   begin

     read(num);

     if num>nmax then begin nmax:=num; imax:=i; end;

   end;

 writeln('Indicele numarului maximal este ', imax);

end.


NekuSenpai: e c++
NekuSenpai: multumesc torusi pt raspuns
boiustef: facem şi c++, un moment
boiustef: ai acum două variante... c++ şi pascal
NekuSenpai: si iti sunt foarte recunoscător pt ajutor
boiustef: cu plăcere, succese
grigore2018: Am creat un prog. putin mai complicat ca acest,afiseaza indexul valorii maxime,si o compara cu valoarea data de la tastatura apoi afiseaza un mesaj despre rezultatul compararii
grigore2018: var
A: array[1..4] of integer;
s, i, max, x: integer;

begin
Writeln('Elementele:');
for i := 1 to 4 do Readln(A[i]); {elemente de intrare}
Write('s='); Readln(s); {introduceți un număr}
max := A[1]; x := 1;
for i := 2 to 4 do
if A[i] > max then
begin
max := A[i]; x := i; {determină maximul și indicele acestuia}
end;
Write('Index maxim:', x);
Writeln;
if s > max then Write('s>max');
if s < max then Write('s if s = max then Write('s=max');
Readln;
end.
boiustef: şi tu, grigore îi zici indexul ... :)))
boiustef: de ce te complici cu acel s? in enunţ e spus că se introduc 4 numere... atît
Alte întrebări interesante