Автор Sunshine* задал вопрос в разделе Другие языки и технологии
помогите в турбо паскаль: Группа Series и получил лучший ответ
Ответ от Вячеслав Бердов[гуру]
1:var a:array[1..100]of integer;x,i,n,k:integer;beginread(n);k:=0;for i:=1 to n dobeginread(x);if(odd(x)) thenbegink:=k+1;a[k]:=x;end;end;write(k,':');for i:=1 to k do write(a:6);writeln;end.2:var a,k:integer;begink:=0;a:=1;while(a<>0) dobegin read(a); k:=k+1;end;k:=k-1;writeln(k);writeln;end.3:var a,k,n:integer;beginreadln(k);a:=1;n:=-maxint;while(a<>0) dobegin read(a); if(a>k)and(a>n)then n:=a;end;writeln(n);writeln;end.4:var n,i,a,a2:integer;bool:boolean;beginbool:=false;readln(n);read(a2);for i:=2 to n dobeginread(a);if(a<=a2) then bool:=true;a2:=a;end;writeln(not(bool));end.
1.x:=(massive1)/2;Если x=int(x) тогда х - четное иначе х - нечетное.А уж как их выводить (или сосчитать) писать, наверное, не нужно: )2. Два варианта.а) t:=false; for i:=0 to 100 do begin if N=0 then t:=true; if t=