roy
Administrator
Dołączył: 02 Gru 2007
Posty: 70
Przeczytał: 0 tematów
Skąd: Głuchołazy
|
 Wysłany: Pon 20:00, 03 Gru 2007 Temat postu: Lista 6 - zad 3 mgr H |
|
|
| Kod: | program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
n=5;
var
tab:array[1..n,1..n] of integer;
i,j,suma,parz,nieparz : integer;
k:char;
begin
randomize;
repeat
parz:=0;
nieparz:=0;
suma:=0;
for i:=1 to n do begin
for j:=1 to n do begin
tab[i,j]:=random(11);
if (tab[i,j] mod 2)=0 then begin
parz:=parz+1;
suma:=suma+tab[i,j];
end
else
nieparz:=nieparz+1;
end;
end;
///pisz tablice
for i:=1 to n do begin
for j:=1 to n do
write(tab[i,j]:3);
writeln
end;
writeln;
writeln('Liczb parzystych :',parz);
writeln('Liczb nieparzystych :',nieparz);
writeln('Suma licz parzystych : ',suma);
writeln('Zakonczyc N/t');
readln(k);
until (k=upcase('t')) or (k='t');
{ TODO -oUser -cConsole Main : Insert code here }
end.
|
|
|
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj
