Kod: Zaznacz cały
suma = 0;
for i=1..12 do
begin
tab[i] = random( z zakresu 5-15);
suma = suma + tab[i];
end
iloczyn = tab[1]*tab[12];
wypisz(suma, iloczyn);
Kod: Zaznacz cały
program sumailocz1;
var
tab:array[1..12] of byte;
wypisz,iloczyn,suma,i:byte;
begin
write(:4000);
suma := 0;
for i:=1 to 12 do
begin
tab[i] := random( 5)+15;
suma := suma + tab[i];
end;
iloczyn := tab[1]*tab[12];
wypisz:=(suma, iloczyn);
end.Kod: Zaznacz cały
program sumailocz1;
var tab:array[1..12] of byte;
iloczyn,suma,i:byte;
begin
randomize;
suma := 0;
for i:=1 to 12 do begin
tab[i] := random(11)+5;
suma := suma + tab[i];
end;
iloczyn := tab[1]*tab[12];
writeln(suma, , iloczyn);
end.