uses crt;
const n=10;
var
tab:array[1..n] of integer;
i:integer;
dorosli:integer;
dzieci:integer;
dochod:integer;
x:integer;
zasilek:integer;
begin
clrscr;
randomize;
writeln('Podaj dochod na osobe: ');
readln(dochod);
if dochod>550 then writeln('Dochod jest za duzy') else
writeln('Podaj liczbe dzieci :');
readln(dzieci);
for i:=1 to n do
begin
tab[i]:=random(4)+1;
if tab[i] then x:=100
else
x:=(150+(30*(dzieci-2)));
zasilek:=150*dorosli+x;
writeln(tab[i], ' zasilek wynosi: ',zasilek);
end;
readln;
end.
Polecenie to
Uzupełnij jednowymiarową tablicę danymi o n rodzinach (n- stała). Każda rodzina opisywana jest przez
- liczbę dzieci (podaje użytkownik)
- dochód na osobę w rodzinie (podaje użytkownik)
- zasiłek na dzieci (zasiłek przysługuje gdy dochód na osobę w rodzinie nie przekracza 550 zł i wynosi: 100 zł na pierwsze dziecko, 50 na drugie, na trzecie i każde kolejne 30 zł)..
Co w tym zadaniu moze byc zle?