[Pascal] Wpisz losowe liczby z zakresu..

[Myszka0707]

Do dwunasto literowej tablicy Wpisz losowe liczby z zakresu od \(\displaystyle{ 5}\) do \(\displaystyle{ 15}\) .Oblicz ich sumę oraz iloczyn dwóch skrajnych elementów.Wyświetl ją.

[bartek118]

W pseudojęzyku byłoby to mniej więcej tak:

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);

Przetłumacz to sobie tylko na Pascala i po krzyku

[Myszka0707]

Nie działa mi kto pomożę żeby działało

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.

[adambak]

Twój kod mało przypominał Pascala..

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.