1)составить программу определяющую наибольшее значение х, y, z 2)составить программу проверяющую правильность пароля

1) var a,b,c: integer; begin read(a); read(b); read(c); if (a> =b) and (a> =c) then write('max=',a) else  if (b> =a) and (b> =c) then write('max=',b) else  if (c> =a) and (c> =b) then write('max=',c); end.2)правильность пароля это как понять? =)

Системный блок-включающий в себя процессор устройства оперативной памяти .предназначен для обработки данных и работой компьютера.клавиатура применяется для вода информации в память компьютера. монитор предназначен для вывода информации на экран .мышь -одно из основных устройств ввода предназначенное для компьютером.джойстик для компьтером во время игры сканер для вода графических изображений в память компьютера непосредственно с бумажным оригиналом принтер для вывода информации на бумагу 

Uses crt; var mas: array [1..10] of integer; i,a: integer; begin clrscr; writeln('input massive'); a: =0; for i: =1 to 10 do begin readln(mas[i]); if (i mod 2 =0) and (mas[i] < 0) then a: =a+1; end; writeln('answer ',a); end. number 2 uses crt; var mas: array [1..10] of integer; i,a,k: integer; begin clrscr; writeln('input massive'); for i: =1 to 10 do readln(mas[i]); i: =1; while (mas[i]< > 0) and (i< 10 ) do i: =i+1; k: =1; if i < 10 then begin for a: =i to 10 do k: =k*mas[a]; writeln(k); end else writeln('nulya net'); end.