Ответьте на вопросы: джойстик - это: а)подвижная подствака под монитор б)нестандартное устройство для ввода информации в компьютер с)элемент графопостроителя мультимедиа - это: а)устройство осуществляющее умножение б)аппаратные и программные средства обеспечивающие объединение на компьютере текста, графики, звука и анимации с) мультик плоттер - это: а)человек изготавливающий плоты б)порция из нескольких секторов с)устройство вывода информации слэш - это: а)название символа $ б)жаргонное название разъема расширения на материнской плате компьютера с)название символа /

program p; var      n, i : integer;       max, imax: integer; begin      write('enter 10 numbers ');             for i : = 1 to 10 do      begin            read(n);                         if i = 1 then            begin                  max : = n;                   imax : = i;             end            else                  if n > max then                  begin                        max : = n;                         imax : = i;                   end;       end;             writeln('max = ', max);       writeln('index = ', imax);             readln; end.

1)

program pr; uses crt; var a,k,k1: integer; beginwriteln('введите a'); readln(a); k1: =1; k: =0; while (a< > 0) and (k1< 1000) dobeginif (a< 0) and (a mod 2=0) and (abs(a)< =30000) then k: =k+1; k1: =k1+1; readln(a); end; writeln('k=',k); readln; end.

2)program pr; uses crt; var a,k,k1: integer; beginwriteln('введите a'); readln(a); k1: =1; k: =0; while (a< > 0) and (k1< 1000) dobeginif (a> 0) and (a mod 2< > 0) and (abs(a)< =30000) then k: =k+1; k1: =k1+1; readln(a); end; writeln('k=',k); readln; end.