Pereiti prie turinio

Rekomenduojami pranešimai

program Noname0;
var mas : array [1..6] of real;
max : real;
kelintas, i : integer;
begin
 WriteLn('Iveskite masyvo narius');
 for i := 1 to 6 do
  begin
readln(mas[i]);
if mas[i] > max
then
	begin
 	max := mas[i];
 	kelintas := i;
	end;
  end;
 WriteLn('Max: ', max:0:0, ' ', 'Kelintas: ', kelintas);
 Readln;
end.

 

A dalis

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Prisijunkite prie diskusijos

Jūs galite rašyti dabar, o registruotis vėliau. Jeigu turite paskyrą, prisijunkite dabar, kad rašytumėte iš savo paskyros.

Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

  • Karštos temos

×
×
  • Sukurti naują...