www.ispwsznysa.fora.pl

stramik

Nie wiem czy trzeba bylo ale zadanie zrobione na procedurach

program zad3;

{$APPTYPE CONSOLE}

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

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

procedure sumowanie (tab:tablica;var suma:integer;var suma1:integer);
var
i:integer;
begin
for i:=1 to 10 do
begin
suma:=suma+tab[i];
if i mod 2=0 then
suma1:=suma1+tab[i];
end;
end;
begin
repeat
suma:=0;
suma1:=0;
writeln('Wypelnij tablice elementami');
wypelnij(tab);
sumowanie(tab,suma,suma1);
writeln;
writeln('Suma elementow wynosi ',suma);
writeln('Suma elementow o indeksie parzystym wynosi ',suma1);
writeln('Suma elementow o indeksie nieparzystym wynosi ',suma-suma1);
writeln('Zakonczyc program ?? t/n');
readln(q);
until (q='t');
end.

Mardok

program Halik_L7Z3;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i : integer;
al,lp : integer;
ch : char;
tab : array[1..10] of integer;

begin

repeat

al:=0;
lp:=0;

for i:=1 to 10 do
begin

repeat
write('Podaj Liczbe [',i:2,'] : ');
readln(tab[i]);
if (tab[i] < -10) or (tab[i] >= 10) then
writeln('Liczba [',tab[i],'] z poza zakresu <-10,10) !');
until (tab[i] >= -10) and (tab[i] < 10);

al:=al + tab[i];
if (tab[i] mod 2) = 0 then lp:=lp + tab[i];
end;

writeln;
writeln('Suma wszystkich elementow : ',al);
writeln('Suma parzystych elementow : ',lp);
writeln('Suma nieparzystych elementow : ',al - lp);
writeln;
write('Wykonac ponownie ? [T/N] : ');
readln(ch);

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

end.