Question

Napisz program w pascalu , który oblicza sume wierszy w tablicy o rozmiarze 7 na 3 . Liczby do tablicy są wylosowanę z przedziału od 0 do 9 . Do obliczenia sumy wierszy użyj funkcji której zadaniem jest obliczanie sumy tylko z jednego wiersza . Funkcja przyjmuje jako parametr numer wiersza .

Dam naj proszę

Answer 1

//licze na naj..



program nazawa;
uses crt;
var
x,y,los:integer;
tab:array[1..7,1..3] of integer;
suma:integer;
numer:integer;

function licz(a:integer):integer;
var
suma_w:integer;
begin
suma_w:=0;
 randomize;
for x:=1 to 7 do
begin
for y:=1 to 3 do
begin

if (x=a) then
begin
suma_w:=suma_w+tab[x,y];
end;

licz:=suma_w;
end;
end;
writeln();
writeln(licz);
end;

begin
clrscr;

suma:=0;

randomize;
for x:=1 to 7 do
begin
for y:=1 to 3 do
begin
los:=random(10);

tab[x,y]:=los;
suma:=suma+tab[x,y];
write(tab[x,y]:4);

end;
writeln;
end;

writeln('Laczna suma licz we wszystkich wierszach to: ',suma);
writeln();

writeln('Podaj numer wiersz w ktorym mam obliczyc sume: ');
readln(numer);
licz(numer);

readln;
end.