Uses crt;
var mas: array [1..1000] of real;
x,k,o,p:integer;
begin
write('K='); readln(K);
o:=0; p:=0;
for x:=1 to K do
begin
write('mas[',x,']:');
readln(mas[x]);
if mas[x]<0 then inc(o);
if mas[x]>0 then inc(p);
end;
writeln;
writeln('Отрицательных элементов: ',o);
writeln('Положительных элементов: ',p);
end.
Ни для кого не секрет, что в геймерских клавиатурах самыми часто используемыми клавишами являются W,A,S,D. Иногда бывало так, что именно эти клавиши выходили из строя со временем и клавиатуру приходилось выбрасывать. В случае с A4Tech Bloody B188, В328, В418 было использовано необычное решение — ключевые кнопки получили механические переключатели Light Strike со скоростью отклика 0,2 мс. Полный ход клавиш равен 2,2 мм, ход до срабатывания — 1,5 мм. По заявлению производителя, новые переключатели срабатывают на 30% быстрее, чем обычные механические переключатели.
Программа:
1 П4 ИП4 С/П КИП4 ИП4 5 - x>=0 02 Сx С/П
var
H: Integer;
begin
Write ('Введите количество часов: ');
ReadLn (H);
WriteLn ('Полных дней = ', H div 24);
WriteLn ('Оставшиеся часы = ', H mod 24);
end.