fps

Lb padekit jau kuria diena bandau padaryt bet kazkaip nesiseka ( busiu lb dekingas jei padetumete nes uzduotis rusu kalba) http://rapidshare.com/files/360189677/bv.doc.html ( reikia padaryt tokia programa kad isvestu ant ekrano kaip ten parodytu cia su masivu reikia daryt ) ( va cia pirma programa as padariau bet man reikia kad jis nedetu nulius ten kur skaicius dalyjasi i 2 reikia kad tne nebutu nuliu ) http://rapidshare.com/files/360192774/Arturr.pas.html( lb prasau padekit ir 2 programa isvis nepadariau....

program Noname7;
var i, x,  y, kol, cc : integer;
 a, b, c : array [1..100] of integer;
begin
 readln(x);

 for i := 1 to x do
  readln(a[i]);

 readln(y);
 readln(kol);

 cc := 0;
 for i := 1 to x do
  begin
if a[i] = y then
  b[i] := kol
  else
	begin
		b[i] := a[i];
		inc(cc);
		c[cc] := a[i];
	end;
end;
write('B ');
for i := 1 to x do
write(b[i],' ');
writeln;

 write('C ');
for i := 1 to cc do
write(c[i],' ');
 Readln;
end.

Į pirmąją tingėjau gilintis :D

labai dekoju kad padejai bet kazkaip nelb gerai skaiciuoja ;D va turiu ivest ka:

10 elementu

y 5

kol 3

5 -2 13 0 5 -6 -3 4 5 0

ir man turi va ka isvest:

B 3 -2 13 0 3 -6 -3 4 3 0

C -2 13 0 -6 -3 4 0

o va kur jus paraset programa isveda:

B 0 3 0 -2 13 0 0 -6 -3 4

C 3 -2 13 0 -6 -3 4

Help :D

Na man tai veikia gerai, gal duomenis blogai suvedei

Dekuj zmogau nezinau net kaip atsidekot blem treciadieni reikia atsiskaityt sita nesamone dekuj lb viskas veikia ;) o gal galetum pasukt gal del pirmos progos ten jau viskas padaryta bet kad man ten kur masivuj B visus priskyriu skaicius kuria dalyjasi i 2 priskyria ir nulius o man nereikia kad priskyrtu ten nulius :)

laba prasau gal galit pagelbeti, rejketu kad per siandien padarytumet jej galit, skoloj neliksiu, atsiusiu saskaitos papildima uz 5lt

6. Stačiakampė dežė, kurios pagrindas yra AxB, O aukštis C., iki pusės pripilta vandens. Kiek galima į dėžę priberti vyšnių (kaip žinome jos skęsta) jeigu vyšnios skersmuo R mm ir vanduo neturi išbėgti? A, B, ir C, reikšmės ne mažesnės kaip 50 cm.

10.Petriukas spalio 12d. 11val. 30min. Nusipirko slides ir ėmė laukti sniego. Snigto pradėjo sausio 25d. 9val 14min. Kiek minučių Petriukas laukė sniego?

plz pagelbekit

Ir visi su tom pačiom užduotim..

Jau kokių 10 temų yra apie šias užduotis ir jų sprendimus.

nu parasykit sprendini, nerandu kitur