Question

Zadanie musi byc zrobione w pascalu :) Oto treść:

Podajemy z klawiatury rozmiar tablicy, losujemy elementy do tablicy z zakresu od 10 do 20, ma wyswietlic te liczby od konca i dla liczb parzystych losujemy nowe wartości.

Answer 1

program tablica;
uses CRT;
var a: byte;
i,n: integer;

Tab: array [1..500] of byte;

begin

CLRSCR;

Randomize;

repeat

Write(' Podaj rozmiar tablicy: '); Read(n);

until (n>0) and (n<=500); {z góry ograniczamy ze tablica moze miec max. 500 komorek}

for i:=1 to n do
begin

repeat

a:=random(20)+1;

until (a mod 2 = 1) and (a>=10) and (a<=20);

Tab[i]:=a;

end;

 

Write(' Elementy tej tablic w kolejnosci odwrotnej: ');

Writeln;

 

for i:=n downto 1 do

Write(' ',Tab[i]);


repeat until KeyPressed;

end.