👤
a fost răspuns

Se considera tabloul [1,n] de numere intregi distincte n<=100.sa se scrie un program care efectueazaintreschimbarea elementullui maxim elementul minim.

Va rog <3

Răspuns :

KAPPACINNOEZ
Răspunsul tău trebuie să aibă cel puțin 20 de caractere.
Vezi imaginea KAPPACINNO
var 

 a:array[1..100] of integer;
 i,n,min,max,pozmin,pozmax:integer;
 
begin

 read(n);
 writeln;
 
 for i:=1 to n do
  read(a[i]);
  
 min:=a[1];
 max:=a[2];
 
 for i:=1 to n do
  begin
  if a[i]<min then min:=a[i];
  if a[i]>max then max:=a[i];
  end;
  
 for i:=1 to n do 
  begin
  if a[i]=min then pozmin:=i;
  if a[i]=max then pozmax:=i;
  end;
 
 a[pozmin]:=max;
 a[pozmax]:=min;
 writeln;
 
 for i:=1 to n do 
  write(a[i],' ');
 
end.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!


Ez Studiers: Alte intrebari