un_dj

Хора помогнете малко за една блок -схема , аз съм я направил , ама май не е по този начин , по който трябва а , аз не съм наясно с нещата , не ги разбирам чак до там ,затова ако някой има време нека да погледне и да помогне ако може , благоря program Masiv; var m,i,j:integer; pr:real; A,B:array[1..20] of real; Begin while((m<1)or(m>20)) do begin write('Vavedene broi na elementite na masiva m <1-20>: '); read(m); end; writeln('Vavedete elementi na masiva:'); for i:=1 to m do begin write('Element[',i,']: '); read(A); end; for i:=1 to m do begin if(A>=0) then begin B:=A*i; end else begin B:=i*i; end; end; pr:=1; for i:=1 to m do begin if((B>-5)and(B<7))then begin j:=j+1;pr:=pr*B; end; end; writeln('Masivite predi i sled promianata:'); writeln(' Predi Sled'); for i:=1 to m do begin writeln('Element[',i,']: ',A:4:3,' ',B:4:3,' ') end; writeln('Broia na elementite v intervala <-5,7>: ',j,''); writeln('Poizvedenieto na tezi elementi: ',pr:4:3,''); write('Natisnete ENTER'); readln; readln; End. това е решението на задачата, а долу е блок-схемата Doc1.doc

Искам малко помощт за една блок-схема, не съм много на ясно с нещата на паскал , ама горе долу измислих нещо.... незнам обаче дали е вярно , някой ако може да помага , благодаря предварително program Masiv; var m,i,j:integer; pr:real; A,B:array[1..20] of real; Begin while((m<1)or(m>20)) do begin write('Vavedene broi na elementite na masiva m <1-20>: '); read(m); end; writeln('Vavedete elementi na masiva:'); for i:=1 to m do begin write('Element[',i,']: '); read(A); end; for i:=1 to m do begin if(A>=0) then begin B:=A*i; end else begin B:=i*i; end; end; pr:=1; for i:=1 to m do begin if((B>-5)and(B<7))then begin j:=j+1;pr:=pr*B; end; end; writeln('Masivite predi i sled promianata:'); writeln(' Predi Sled'); for i:=1 to m do begin writeln('Element[',i,']: ',A:4:3,' ',B:4:3,' ') end; writeln('Broia na elementite v intervala <-5,7>: ',j,''); writeln('Poizvedenieto na tezi elementi: ',pr:4:3,''); write('Natisnete ENTER'); readln; readln; End. Doc1.doc

Някой нещо ако знае за филмечето Блясъчко мечтателника , ще съм му мн благодарен - линк , снимки или нещо друго

Някой спомня ли си детското за блясъчко мечтателника? Ако някой намери линк , снимка или поне интро ще съм му мн.БЛАГОДАРЕН

Трябва ми блок-схема на тази задача на Паскал. Даден е едномерен масив с "m" на брой реални числа.Всеки полжителен елемент на масива да се замени с произведението от стойността на елемента и неговия индекс, а всеки отрицателен елемнт да се замени с квадрата на индекса си.Да се разпечатат зададения и променения масив .Да се изброят ненулевите елемнти на променения масив,които се намират в интервал [-5;7] и да се пресметне тяхното произведение. БЛАГОДАРЯ ПРЕДВАРИТЕЛНО!!