Napisz program w Turbo Pascalu, który w tablicy dwuwymiarowej o rozmiarach 20x20 wprowadzi liczby losowe do wszystkich komórek oprócz komórek leżących po przekątnych, którym przypisze wartość 0.
Jak coś to piszcie PW nie wiem jak zrobić to zadanie liczę na Waszą pomoc.
Jak coś to piszcie PW nie wiem jak zrobić to zadanie liczę na Waszą pomoc.
Recommend Questions
mkaminski185
October 2020 | 0 Replies
1. Jakie zagadnienia (trzy elementy) obejmuje technologia informacyjna?2. Jakie elementy znajdują się na płycie głównej komputera – opisz krótko ich funkcje:• procesor:• pamięć RAM:• chipset:• karty rozszerzeń lub kontrolery zintegrowane z płytą główną:• pamięć ROM:3. Jakie urządzenia, obok płyty głównej, mogą znajdować się wewnątrz obudowy komputera?4. Wymień urządzenia zewnętrzne (peryferyjne).5. Co to jest system operacyjny i jak nazywają się najpopularniejsze systemy operacyjne?6. Opisz system plików w systemie Windows.7. Jakie to pliki (formaty plików):• *.exe:• *.pdf:• *.txt:• *.doc:• *.xls:• *.jpg:• *.png:• *.doc:• *.mp3:• *.mp4:
laurasleczka2009
October 2020 | 0 Replies
Ważne. Posłuchajcie mam problem zawsze jak włączam firefox to włącza mi się ta sama strona. Czyli ( Dajmy na to że pisze sobie coś na wordzie i chce poszukąć coś w firefoxie no go odpalam i patrze pierwsza strona jaka mi się otworzy to yt) I nie wiem czego tak się dzieje proszę pomocy.
laurasleczka2009
October 2020 | 0 Replies
Ważne. Posłuchajcie mam problem zawsze jak włączam firefox to włącza mi się ta sama strona. Czyli ( Dajmy na to że pisze sobie coś na wordzie i chce poszukąć coś w firefoxie no go odpalam i patrze pierwsza strona jaka mi się otworzy to yt) I nie wiem czego tak się dzieje proszę pomocy.
uses CRT;
var
i,j:integer;
tablica:array[1..20,1..20] of integer;
begin
Clrscr;
Randomize;
for i := 1 to 20 do
for j := 1 to 20 do
if i <> j then tablica[i,j] := random(100) else tablica[i,j] := 0;
readln;
end.
Myślę, że powinno pasować, program kompiluje się bez żadnych problemów.