Proszę o pomoc w zadaniu: "napisz w pascalu tablicę jednowymairową 20-sto elementową a) uzupełnij ją liczbami: 2,4,6,8,...,40. b)Podaj średnią arytmetyczną"
vegixa
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.
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.