roy
Administrator
Dołączył: 02 Gru 2007
Posty: 70
Przeczytał: 0 tematów
Skąd: Głuchołazy
|
 Wysłany: Pon 19:32, 03 Gru 2007 Temat postu: Lista 6 - zad 1 mgr H |
|
|
| Kod: | program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
n=5;
var
tab:array[1..n,1..n] of integer;
a,i,j:integer;
begin
writeln('Podaj liczbe z zakresu <-5,10), bez 0 - zapiszemy ja do tablicy 5x5');
for i:=1 to n do begin
for j:=1 to n do begin
writeln('Podaj liczbe',j);
readln(a);
if (a<-5) or (a>=10) or (a=0) then begin
writeln('Zly przedzial - podaj jeszcze raz');
readln(a);
end;
tab[i,j] := a ;
end;
end;
/////wypisanie tablicy
for i:=1 to n do begin
for j:=1 to n do
write(tab[i,j]:3);
writeln;
end;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
|
|
|
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj
