FPS

FPS

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

Ačiū labai. :) O kaip B daryti gal gali patarti?

Nusiskaityk visus skaičius į masyvą, poto į kitus du masyvus išsirušiuok lyginius ir nelyginius su mod ar div tiksliai nepamenu ir tada ten paprastai atlik tuos veiksmus sandauga ir suma ;)

Nusiskaityk visus skaičius į masyvą, poto į kitus du masyvus išsirušiuok lyginius ir nelyginius su mod ar div tiksliai nepamenu ir tada ten paprastai atlik tuos veiksmus sandauga ir suma ;)

Hm... o kaip nuskaityti skaičius į masyvą?

WriteLn('Iveskite masyvo narius');
 for i := 1 to 6 do
  begin
       readln(mas[i]);
  end;