Tresc zadania: Napisz program, ktory bedzie wyswietlal tablice 20 elementowa, sume wszystkich liczb nieparzystych i parzystych oraz podac ilosc liczb parzystych i nieparzystych.
Prosze o pomoc bo nie mam pojecia jak to napisac :( a bylam dlugo nieobecna w szkole przez chorobe a teraz cizeko jest wszystko nadrobic :( Czekam i z gory dziekuje!!
Wiek: 16 Dołączył: 11 Cze 2006 Posty: 2646 Otrzymał 2 piw(a) Skąd: Ruda Śląska
Wysłany: 2008-02-29, 17:47
Kod
program tablica;
var i, in, ip: byte;
var sn, sp: integer;
var t: array[1..20] of integer;
begin
clrscr;
for i := 1 to 20 do
begin
t[i] := random(32000);
end;
for i := 1 to 20 do
begin
if t[i] mod 2 = 0 then
sp := sp + t[i];
ip := ip + 1;
else
sn := sn + t[i];
in := in + 1;
end;
write('Tablica 20-elementowa zawiera liczby: ');
for i := 1 to 20 do
begin
write(t[i],', ');
end;
writeln('');
writeln('Suma wszystkich elementow nieparzystych to: ',sn,', a parzystych: ',sp);
writeln('Liczby nieparzystych jest: ',in,', a parzystych: ',ip);
repeat until keypressed;
end.
Ale glowa mnie boli i nie chce mi sie sprawdzac czy dziala
Nie możesz pisać nowych tematów Nie możesz odpowiadać w tematach Nie możesz zmieniać swoich postów Nie możesz usuwać swoich postów Nie możesz głosować w ankietach Nie możesz załączać plików na tym forum Nie możesz ściągać załączników na tym forum
Pozdrawiam 