www.ispwsznysa.fora.pl

stramik

program zad5;

{$APPTYPE CONSOLE}

type
tablica=array[1..10,1..10] of integer;
var
tab:tablica;
q:char;
suma,x,y:integer;

procedure wypelnij(var tab:tablica;x,y:integer);
var
i,j:integer;
begin
for i:=1 to x do
begin
for j:=1 to y do
begin
tab[i][j]:=random(21)-10;
end;
end;
end;

procedure sumowanie(tab:tablica;var suma:integer;x,y:integer);
var
i,j:integer;
begin
for i:=1 to x do
begin
for j:=1 to y do
begin
if (i mod 2=0) and (j mod 2=0) then
suma:=suma+tab[i][j];
end;
end;
end;

procedure pisz(tab:tablica;x,y:integer);
var
i,j:integer;
begin
for i:=1 to x do
begin
for j:=1 to y do
begin
write(tab[i][j]:4);
end;
writeln;
end;
end;

begin
randomize;
repeat
suma:=0;
repeat
writeln('Podaj liczbe wierszy w tablicy z przedzialu <3,10> ');
readln(x);
until (x>2) and (x<11);
repeat
writeln('Podaj liczbe kolumn w tablicy z przdzialu <3,10>');
readln(y);
until (y>2) and (y<11);
wypelnij(tab,x,y);
sumowanie(tab,suma,x,y);
writeln;
writeln('Suma elementow o wspolrzednych parzystych wynosi ',suma);
writeln('Drukowanie tablicy:');
pisz(tab,x,y);
writeln('Zakonczyc program ?? t/n');
readln(q);
until (q='t');
end.

Mardok

program Halik_L7Z4;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i,j : integer;
n,s : integer;
ch : char;
tab : array[1..10,1..10] of integer;

begin

randomize;

repeat

repeat
write('Podaj rozmiar tablicy : ');
readln(n);
if (n < 3) or (n > 10) then
writeln('Rozmiar [',n,'] z poza zakresu <3,10> !');
until (n >=3) and (n <= 10);

writeln;

s:=0;
for i:=1 to n do
for j:=1 to n do
begin
tab[i,j]:=random(21) - 10;
if ((i mod 2) = 0) and ((j mod 2) = 0) then s:=s + tab[i,j];
end;

for i:=1 to n do
begin
for j:=1 to n do write(tab[i,j]:4);
writeln;
end;

writeln;
writeln('Suma elementow o parzystych wspolrzednych : ',s);
writeln;
write('Wykonac ponownie ? [T/N] : ');
readln(ch);

until (ch <> 'T') and (ch <> 't');

end.