roy
Administrator
Dołączył: 02 Gru 2007
Posty: 70
Przeczytał: 0 tematów
Skąd: Głuchołazy
|
 Wysłany: Pon 20:04, 03 Gru 2007 Temat postu: Lista 6 - zad 2 mgr H |
|
|
| Kod: | program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
n=10;
var
tab:array[1..n,1..n] of integer;
i,j,x,suma1,suma2 : integer;
begin
randomize;
suma1:=0;
suma2:=0;
writeln('Podaj rozmiar tablicy n ktorej odbedzie sie operacja losowana liczb z przedzialu <-10,20> - max rozmiar to 10');
readln(x);
if (x>10) or (x<0) then
begin
writeln('Podaj jeszcze raz ');
readln(x);
end;
for i:=1 to x do begin
for j:=1 to x do begin
tab[i,j]:=random(31)-10;
if j=1 then
suma1:=suma1+tab[i,j];
if j=x then
suma2:=suma2+tab[i,j];
end;
end;
///pisz tablice
for i:=1 to x do begin
for j:=1 to x do
write(tab[i,j]:3);
writeln
end;
writeln;
writeln('Suma 1 kolumny :',suma1);
writeln('Suma ostatniej kolumny :',suma2);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
|
|
|
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj
