Napisz program w pascalu , który tworzy tablice 10 elementową , jedną wymiarową typu real . Tablica ma być globalna następnie napisz procedure losującą liczby o nazwie losuj , procedure wyświetlającą zawartość tablicy o nazwie wyświetl i procedure o nazwie podaj , która przyjmuje jeden parametr i wyświetla element z tablicy o podanym indeksie .
Proszę o napisanie programu w pascalu .
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2025 KUDO.TIPS - All rights reserved.
licze na naj..
program nazwa;
uses crt;
var
tablica:array[1..10] of real;
x:integer;
los:integer;
parametr:integer;
procedure losuj;
begin
randomize;
for x:=1 to 10 do
begin
los:=random(100);
tablica[x]:=los;
end;
end;
procedure wyswietl;
begin
for x:=1 to 10 do
begin
writeln('tablica[',x,'] = ',tablica[x]:0:2);
end;
end;
procedure podaj(liczba:integer);
begin
writeln('tablica[',liczba,'] = ',tablica[liczba]:0:2);
end;
begin
clrscr;
losuj;
wyswietl;
writeln;
writeln('Podaj paramert tablicy jaki mam wyswietlic od 1 do 10: ');
readln(parametr);
writeln;
podaj(parametr);
readln;
end.