Odpowiedzi

Najlepsza Odpowiedź!
2010-03-05T17:04:25+01:00
Program tab;
uses CRT;
var
srednia:real;
i,j:integer;
tablica:array[1..20] of integer;
begin
Clrscr;
j := 2;
for i := 1 to 20 do
begin
tablica[i] := j;
srednia := srednia+j;
j := j+2;
end;
Writeln(tablica[10]);
srednia := srednia / 20;
Writeln('Srednia z talbicy wynosi: ',srednia:2:2);
readln;
end.
1 5 1