Pagalbos! Programavimas FPS.

Slidinėjimo varžybų trasą sudaro n ratų. Vieno rato ilgis m metrų. Sportininkas pirmą ratą įveikė pr t1 sekundžių, antrą - per t2 sekundžių ir t.t. Parašykite programą, skaičiuojančią kokiu vidutiniu greičiu v čiuožė sportininkas ir kiek laiko t sugaišo įveikdamas trasą.

Pasitikrinimui: kai n=4, m=500, t1=45, t2=42, t3=39, t4=37, tuomet kompiuterio ekrane turi būti rodoma: Sportininko vidutinis greitis v = 12.3 m/s, distancijoje sugaišo 163 sekundės.

program ratai;

var t : array [1..1000] of integer;

i, n, m, total, totalm :integer;

v, v1 : real;

begin

Readln(n,m);

totalm := 0;

v1 := 0;

for i := 1 to n do

begin

Read(t[i]);

total := total + t[i];

totalm := totalm + m;

v := m / t[i];

v1 := v1 + v;

end;

v1 := v1 / n;

Writeln('Sportininko vidutinis greitis v = ',v1:0:1,'m/s, distancijoje sugai

Ačiū labai. :rolleyes:

Kažin infos mokytojai nelabai vykę mūsų šalelėj ar mokiniai tinginiai? :huh: nes vis kažkam reikia ND padaryt (pabrėžiu, padaryt, o ne paaiškint)...

Kažin infos mokytojai nelabai vykę mūsų šalelėj ar mokiniai tinginiai? :huh: nes vis kažkam reikia ND padaryt (pabrėžiu, padaryt, o ne paaiškint)...

paaiškinti gali ir mokytojai, bet padaryti mokytojai jau nedarys ;)