www.ispwsznysa.fora.pl

stramik

program zad4;

{$APPTYPE CONSOLE}

type
tablica=array[1..5,1..5] of integer;
var
tab:tablica;
q:char;
suma,min,kol:integer;

procedure wypelnij(var tab:tablica);
var
i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
repeat
write('Podaj [',i,'][',j,'] element tablicy ');
readln(tab[i][j]);
until (tab[i][j]>9) and (tab[i][j]<21);
end;
end;
end;

procedure sumowanie(tab:tablica;var suma:integer);
var
i:integer;
begin
for i:=1 to 5 do
begin
suma:=suma+tab[1][i];
end;
end;

procedure minimum(tab:tablica;var minimum:integer;kol:integer);
var
i:integer;
begin
min:=tab[1][kol];
for i:=1 to 5 do
begin
if min>tab[i][kol] then
min:=tab[i][kol];
end;
end;

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

begin
repeat
suma:=0;
writeln('Wypelnij tablice elementami z przedzialu <10,20>');
wypelnij(tab);
sumowanie(tab,suma);
writeln;
writeln('Suma elementow pierwszego wiersza wynosi ',suma);
writeln('Podaj numer kolumny z ktorej chcesz obliczyc minimum ');
readln(kol);
minimum(tab,min,kol);
writeln('Minimum w kolumnie ',kol,' wynosi ',min);
writeln;
writeln('Drukowanie tablicy:');
pisz(tab);
writeln('Zakonczyc program ?? t/n');
readln(q);
until (q='t');
end.

Mardok

program Halik_L7Z4;

{$APPTYPE CONSOLE}

uses
SysUtils;

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

begin

randomize;

repeat

s:=0;
sk:=0;

for i:=1 to 5 do
for j:=1 to 5 do
begin
tab[i,j]:=random(11) + 10;
if i = 1 then s:=s + tab[i,j];
end;

writeln;

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

writeln;
write('Podaj numer kolumny : ');
readln(j);

sk:=tab[1,j];
for i:=1 to 5 do
if tab[i,j] < sk then sk:=tab[i,j];

writeln;
writeln('Suma elementow pierwszego wiersza : ',s);
writeln('Element minimalny wybranej [',j,'] kolumny : ',sk);
writeln;
write('Wykonac ponownie ? [T/N] : ');
readln(ch);

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

end.

roy

a ja tak to napialem