Синформатикой.. определить истенность простых высказываний а) принтер это устройство вывода информации б) процессор это устройствохранения информации в) монитор это устройство вывода информации с) клавиатура это устройство обработки информации

В) монитор это устройства вывода информации

А, в-верно, б, г-нет (процессор обрабатывает информацию, а  клавиатура используется для ввода информации)

Var a: array[1..15] of integer; i: integer; begin for i: =1 to 15 do read(a[i]); for i: =15 downto 1 do write(a[i],' '); end.var a: array[1..4,1..4] of integer; i,j,s: integer; beginfor i: =1 to 4 do  for j: =1 to 4 do begin  read(a[i,j]);   if i=j then s+=a[i,j];   end; for i: =1 to 4 do begin  for j: =1 to 4 do  write(a[i,j]: 3); writeln; end; writeln(s); end.var a: array[1..20] of integer; i,max: integer; beginfor i: =1 to 20 do beginread(a[i]); if (a[i]> =100) and (a[i]< 1000) and (a[i] mod 9 < > 0) and (a[i]> max) then max: =a[i]; end; if (max< > 0) then writeln(max)else writeln('не найдено'); end.

1- var      a: array[1..5] of integer;   s,p,k,i,c : integer; begin     for i: =1 to 5 do begin         write('ведите число ');       readln(a[i]);     end;     s: =0; c: =0;     p: =1; k: =0;     for i: =1 to 5 do begin         if   a[i]> 0 then begin s: =s+a[i]; c: =c+1; end;         if (a[i] mod 12)< > 0 then p: =p*a[i];           if (a[i]mod 2)=0 then k: =k+1;     end;     writeln('средняя сумма положительных чисел= ',s/c) ;     writeln('произведение чисел не кратных 12= ',p) ;     writeln('количество чётных чисел= ',k) ; end.можно сделать и с одним циклом. если надо - отпишись. 2расчёт с учётом того что у сотрудников разная зптоже можно сделать с одним   циклом.var      a: array[1..5] of integer;     i,zp: integer; begin    for i: =1 to 5 do begin    write('ведите зарплату сотрудника ',i,': ');     readln(a[i]);     end;   zp: =0;   for i: =1 to 5 do zp: =zp+a[i];   write('общая сумма=',zp);     end. 3var      a: array[1..20] of integer;     i,p,s,summ: integer; begin    for i: =1 to 20 do begin    write('ведите число ');     readln(a[i]);     end;   p: =1; s: =0; summ: =0;   for i: =1 to 20 do begin    if a[i]> 8 then   begin p: =p*a[i]; s: =s+1; end;     if (a[i]mod 15)< > 0 then summ: =summ+a[i];   end;   writeln('среднее произведение чисел больше 8= ',p/s);   write('семма чисел не кратных 15= ',summ);     end.и это тоже можно с одним циклом