Question

napisz program który losuje 20 liczb z zakresu od 0 do 100 wypisuje je zsumowuje i wypisuje sumę.
na podstawie tego przykładu,trzeba tu trochę pozmieniać:

uses crt;
var
i,j:byte;
a:array[1..4,1..5] of byte;
begin
clrscr;
writeln('z liczb od 0 do 99 program losuje 20 liczb i umieszcza je w tablicy
dwuwymiarowej');
RANDOMIZE;
for i:=1 to 4 do
begin
for j:=1 to 5 do
a[i,j]:= random(100);
write(a[i,j]:4);
end;
writeln;
readln
end.

Answer 1

ja bym zrobił coś takiego:

 

program losuj;

uses crt;

var    liczba:integer;

suma:integer;

i:byte;
Begin

ClrScr;

suma:=0;

WriteLn('Wylosowanie liczby naturalne z zakresu 0 .. 100: ');

Randomize;

for i:=1 to 20 do begin

liczba:=Random(101);

WriteLn(liczba);

suma:=suma+liczba

end;

Writeln;

Write('Suma wylosowanych liczb: ');

Write(suma);
repeat Until Keypressed;

End.

 

Tablicy nie ma potrzeby w ogóle używać, nie jest to powiedziane w treści zadania.

To przy założeniu, że mają być losowane liczy całkowite(naturalne) z danego przedziału.

Jeżeli miałyby to być losowane liczby rzeczywiste (bo to nie jest powiedziane w treści zadania) to trzeba zmienić deklaracje zmiennych liczba,suma:real

oraz losowanie liczba:=100*random()   (wtedy losowana jest liczba z przedziału <0..1) i po przemnożeniu jej przez 100 dostajemy liczbę rzeczywistą z przedziału <0..100) dalej bez zmian.